|
|
本帖最后由 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"
谢谢您！
|
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2017-11-9 11:10
楼主
