连续查找

ke3088 · 发表于 2017-11-9 11:10

本帖最后由 ke3088 于 2017-11-9 11:12 编辑

以下代码是录制宏并修改：
With ActiveDocument.Content.Find '查找操作
      .ClearFormatting '删除格式设置
      .Text = "^13附件^13" '查找的文本
      .Replacement.Text = "" '替换后的文本
      .Forward = True '搜索方向：True 向下，False 向上
      .MatchWholeWord = True '单词：True 完整，False 部分
      .MatchByte = False '全角和半角：True 区分，False 不区分
      .MatchCase = False '大小写：True 区分，False 不区分
      .MatchWildcards = True '通配符：True 包含，False 不包含
      If .Execute Then '查找成功
         x = "^13附件^13"
      Else
         x = "^13附件([0-9]{1,3})^13"
      End If
End With
With ActiveDocument.Content.Find '查找操作
      .ClearFormatting '删除格式设置
      .Text = x '查找的文本
      .Replacement.Text = "" '替换后的文本
      .Forward = True '搜索方向：True 向下，False 向上
      .MatchWholeWord = True '单词：True 完整，False 部分
      .MatchByte = True '全角和半角：True 区分，False 不区分
      .MatchCase = False '大小写：True 区分，False 不区分
      .MatchWildcards = True '通配符：True 包含，False 不包含
      .Wrap = wdFindContinue
      If .Execute Then
         .Parent.Select
         Selection.EndKey unit:=wdLine, Extend:=wdMove 'HomeKey开头，EndKey末尾
               'wdStory文档,wdLine当前行，wdMove移动光标，wdExtend选择并扩展
         Selection.MoveUp unit:=wdParagraph
         Selection.InsertBreak Type:=wdSectionBreakNextPage '插入分隔符下一页
      End If
End With
代码不能能连续进行，只是一次性操作。
现向各位老师求助：把所有的"^13附件^13"替换成"^12附件^13"后，接着把所有的"^13附件([0-9]{1,3})^13"替换成"^12附件([0-9]{1,3})^13"
谢谢您！

13907933959 · 发表于 2017-11-9 16:34

网友好！
你这个^12是什么意思？

ke3088 · 发表于 2017-11-9 17:34

这句表述不正确：
把所有的"^13附件^13"替换成"^12附件^13"后，接着把所有的"^13附件([0-9]{1,3})^13"替换成"^12附件([0-9]{1,3})^13”
应该是：
找到所有的"^13附件^13"，进行Selection.InsertBreak Type:=wdSectionBreakNextPage'插入分隔符下一页处理后，继续查找所有的"^13附件([0-9]{1,3})^13"，进行Selection.InsertBreak Type:=wdSectionBreakNextPage'插入分隔符下一页处理。
是我的表述问题，但代码还是很清楚的。谢谢

wdpfox · 发表于 2017-11-9 21:03

看不懂，

duquancai · 发表于 2017-11-9 21:09

ke3088 发表于 2017-11-9 17:34
这句表述不正确：
把所有的"^13附件^13"替换成"^12附件^13"后，接着把所有的"^13附件([0-9]{1,3})^13"替换 ...

又没附件，表述也看不懂，代码更是看不懂！！！

13907933959 · 发表于 2017-11-10 06:44

ke3088 发表于 2017-11-9 17:34
这句表述不正确：
把所有的"^13附件^13"替换成"^12附件^13"后，接着把所有的"^13附件([0-9]{1,3})^13"替换 ...

网友好！
我问的是这个^12代表什么？

ke3088 · 发表于 2017-11-10 08:35

本帖最后由 ke3088 于 2017-11-10 08:43 编辑

^12是分节符，^13是段落标记
我基本解决，代码前后分别加上For i = 1 To 10和Next，如10次不够，那就20次，100次，虽然办法笨一点，迅速慢一点，但总算可以达到目的。我发贴的目的主要是看各位老师有什么好办法、更简便的代码。谢谢各位老师！

13907933959 · 发表于 2017-11-10 08:51

本帖最后由 13907933959 于 2017-11-10 16:05 编辑

ke3088 发表于 2017-11-10 08:35
^12是分节符，^13是段落标记
我基本解决，代码前后分别加上For i = 1 To 10和Next，如10次不够，那就20次 ...

网友好！
学习了。

kerry786032 · 发表于 2017-11-10 10:29

我也经常查找什么东西，只改了一次就不改了，今天也有个功能也这样，后来我再后面加了这句selection.MoveDown unit:=wdParagraph, count:=1 ，然后就可以全文替换了。

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

[求助] 连续查找