批量替换章标题遇到麻烦，第1章到第99章，都要换，最后一个符号替换出问题

treny1982 · 发表于 2017-8-18 19:54

本帖最后由 treny1982 于 2017-8-19 16:46 编辑

如图，要整个文章替换章标题，第1、第2到第100章。图所示，这个可以替换到；第1章和冒号后面，但是最后的问号查不出来<(第)*(：)*>，只能替换到问号“？”前面，“？”替换不到，要加什么通配符号呢？
替换问号时不行 2.png

问号没变大，其他都变大了。！！！！！！！？？？？？？

jiminyanyan · 发表于 2017-8-18 20:51

替换前和替换后是什么，模拟一下。。。。

duquancai · 发表于 2017-8-18 21:03

附件也不提供，白说，就是白说也没说清楚！！！

treny1982 · 发表于 2017-8-19 16:47

我发了文档和图片了，就是问号没变化，要求这一句要变大字体，第1到第100章。。

duquancai · 发表于 2017-8-19 17:30

本帖最后由 duquancai 于 2017-8-19 22:31 编辑

treny1982 发表于 2017-8-19 16:47
我发了文档和图片了，就是问号没变化，要求这一句要变大字体，第1到第100章。。

Sub MofidSize()
With ActiveDocument.Content.Find
      Do While .Execute("第[0-9]@章[:：]", , , 1)
         With .Parent
            .MoveEndUntil Chr(32)
            .Font.Name = "黑体"
            .Font.Size = 25
            .Collapse 0
         End With
      Loop
End With
End Sub

leikaiyi123 · 发表于 2017-8-20 15:06

#在这里快速回复#请大师帮助下http://club.excelhome.net/thread-1363903-1-1.html

treny1982 · 发表于 2017-8-23 03:02

duquancai 发表于 2017-8-19 17:30
Sub MofidSize()
With ActiveDocument.Content.Find
Do While .Execute("第[0-9]@章[:：]" ...

这代码怎么进行？

13907933959 · 发表于 2017-8-24 07:00

treny1982 发表于 2017-8-23 03:02
这代码怎么进行？

网友好！

得到了帮助，应该说声谢谢，不然怎么对得起辛苦为我们写代码的前辈们！如一个谢字都没有，再求助下一个问题，你觉得还会有人为我们解答吗？不是说帮助我们的人非要谢谢这二个字，而是作为求助者对帮助我们的人一个最起码的尊重！您说对吗？

运行步骤如下：

1、打开你需要处理的Word文档；

2、同时按电脑键盘上的ALT和F11键；

3、在左边的工程窗口里面有个“Normal”，点开它后，有个“模块”节点；

4、在这个“模块”节点上，点鼠标右键，选择“插入-模块”，这样右边就会出现代码窗口；

5、在代码窗口中，粘贴代码；

6、“关闭代码窗口”→再点文档上面的“工具”→“宏”→“宏”→选中要运行的代码名→点击“运行”即可。

treny1982 · 发表于 2017-8-24 16:02

13907933959 发表于 2017-8-24 07:00
网友好！得到了帮助，应该说声谢谢，不然怎么对得起辛苦为我们写代码的前辈们！如一个谢字都没有，再求助 ...

太谢谢了，看看我行不行，

treny1982 · 发表于 2017-8-24 20:55

13907933959 发表于 2017-8-24 07:00
网友好！得到了帮助，应该说声谢谢，不然怎么对得起辛苦为我们写代码的前辈们！如一个谢字都没有，再求助 ...

哎，我有900多页，很久哦

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

[求助] 批量替换章标题遇到麻烦，第1章到第99章，都要换，最后一个符号替换出问题