查找到特定的段落。

kerry786032 · 发表于 2017-11-3 13:59

本帖最后由 kerry786032 于 2017-11-3 15:38 编辑

我想查找到这个标记为红色的这个段落，但是不查找标记为绿色的那个段落。
我尝试了如下代码：

Sub qw()
Dim p As Paragraph, d As Document
For Each p In ActiveDocument.Range.Paragraphs
If p.Format.FirstLineIndent = CentimetersToPoints(0) And p.Range.Words(1) = "Author" Then
p.Range.HighlightColorIndex = wdRed
End If
Next
End Sub

复制代码

但是运行了毫无反应，新手求教各位老师，该如何完善此代码。如果犯了什么低级错误，还望指正，我可以多学习学习，谢谢。

duquancai · 发表于 2017-11-3 19:48

本帖最后由 duquancai 于 2017-11-3 20:04 编辑

Sub shishi()
ActiveDocument.Content.HighlightColorIndex = 0
With ActiveDocument.Content.Find
      Do While .Execute("^pAuthor Contributions")
         With .Parent
            .Start = .Start + 1
            If .ParagraphFormat.FirstLineIndent = 0 Then
                  .Paragraphs(1).Range.HighlightColorIndex = 6
                  .Start = .End
            Else
                  .Start = .End
            End If
         End With
      Loop
End With
End Sub

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

[求助] 查找到特定的段落。