word替换功能求助

ch2277 · 发表于 2018-5-21 10:10

本帖最后由 ch2277 于 2018-5-21 10:51 编辑

第1章
第一章
第2章
第二章

有没有批量方法，前面全部加上三个 ### 。
最后改完形式：
### 第1章
### 第一章
### 第2章
### 第二章

小弟用了通用字符不行呀- -可以找到不能替换。特来请教。

测试.zip (10.48 KB, 下载次数: 7)

duquancai · 发表于 2018-5-21 10:17

可以。。。。。。。。。。。

ch2277 · 发表于 2018-5-21 10:35

duquancai 发表于 2018-5-21 10:17
可以。。。。。。。。。。。

- -老哥你这个可以有点高深了

相见是缘8 · 发表于 2018-5-21 10:41

你好！
求助解答问题，建议上传一个“测试附件”，附件上最好有“模拟的效果”，这样才可能有更多的人帮到你，因各人对问题的描述、理解不同，很容易有偏差，您把问题描述得再清楚，都不如帮助您的人看到“模拟的效果”更直观，如没有“测试附件”，得到帮助的概率和满意度会不高！

ch2277 · 发表于 2018-5-21 10:49

相见是缘8 发表于 2018-5-21 10:41
你好！
求助解答问题，建议上传一个“测试附件”，附件上最好有“模拟的效果”，这样才可能有更多的人帮到 ...

噢噢好的。马上谢谢

ch2277 · 发表于 2018-5-21 10:52

相见是缘8 发表于 2018-5-21 10:41
你好！
求助解答问题，建议上传一个“测试附件”，附件上最好有“模拟的效果”，这样才可能有更多的人帮到 ...

已上传哟~已上传哟~已上传哟~

相见是缘8 · 发表于 2018-5-21 11:20

本帖最后由相见是缘8 于 2018-5-22 06:32 编辑

ch2277 发表于 2018-5-21 10:52
已上传哟~已上传哟~已上传哟~

如光是“附件”中的样子就简单：

Sub 批量加上三个()

With ActiveDocument.Content.Find

.Parent.InsertBefore Text:=vbCr

.Execute "第[一二三四五六七八九十]章", , , 1, , , , , , "###^&", 2

.Execute "第[1234567890]章",, , 1, , , , , , "###^&", 2

.Parent.Paragraphs(1).Range.Delete

End With

End Sub

相见是缘8 · 发表于 2018-5-21 11:22

ch2277 发表于 2018-5-21 10:52
已上传哟~已上传哟~已上传哟~

如光是“附件”中的样子就简单：
代码审核中……等待！

ch2277 · 发表于 2018-5-21 11:24

相见是缘8 发表于 2018-5-21 11:22
如光是“附件”中的样子就简单：
代码审核中……等待！

谢谢~~惆怅死我了~

ch2277 · 发表于 2018-5-21 12:10

相见是缘8 发表于 2018-5-21 11:22
如光是“附件”中的样子就简单：
代码审核中……等待！

老哥章节要是几百几千呢？

		自动登录	找回密码
密码			免费注册

[求助] word替换功能求助