如何在不同目录间查找替换

怎么在不同目录间查找替换
我有不同目录级比如
1 一级目录
1.1 二级目录
1.2 二级目录
2 二级目录
2.1二级目录 '我想只查找替换1.1下的其他都不替换，代码我写好了就是效率很低 求帮助

VB code

  Dim Ncount As Integer '声明变量  Ncount = 0  Dim counter As Integer '声明变量  counter = 0  For x = 1 To ActiveDocument.Paragraphs.count'这句话统计比实际段落多很多 求另外的方法  Ncount = ActiveDocument.Paragraphs(x).OutlineLevel '这句话很耗时间   If Ncount = 1 Then   counter = counter + 1  End If    If counter = 1 And Ncount >= 2 Then '替换第一个一级目录下的二级目录     ActiveDocument.Paragraphs(x).Range.Select  With Selection.Find             .Text = "张三"         .Replacement.Text = "李四" '将张三给位李四         .Replacement.ClearFormatting         .Execute Replace:=wdReplaceAll, Forward:=True     End With   End IfNext xMsgBox (ActiveDocument.Paragraphs.count)  ActiveDocument.Content.Fields.UpdateEnd Sub

[解决办法]
ActiveDocument.Paragraphs(x).Range.Select
换成在已经使用的cell中查找，看看能否提高一下效率。

查看更多 下一篇