段落循环修改内容

tospo

为啥执行代码后，”测试方法“在表格内了，朋友能解释下吗。


Sub TEST()
    Dim doc As Document
    Dim para As Paragraph
    Dim STR As Range
    Set doc = ActiveDocument
    For Each para In doc.Paragraphs
        If InStr(para.Range.Text, "检测项目") Then
            Set STR = para.Next(3).Range
            STR = "4、测试方法" & Chr(13)
        End If
    Next para

End Sub

batmanbbs

因为para.range包括最后的段落符，所以会到表格中，只要将这个段落符过滤掉就可以了，修改如下：

另：1.这种方法也有问题，你还应该判断一下"检测项目"不是在表格中才更加安全；
　　2.如果文档很大，使用查找替换的方法速度回更快一些。

413191246se

batmanbbs：不一定！有时，For Each ... Next 结构可能会更快一些，前一段我测试过，查找方法不一定最快。