查找特定段落

Question

如图所示，我想找到这段红色，但找不到标记为绿色的段落   我尝试了以下代码。但是，没有响应运行，有人可以告诉我如何改进此代码。如果我犯了任何低级错误，希望可以纠正我，谢谢。

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

Answer 1

试试这样：

If p.Format.FirstLineIndent = CentimetersToPoints(0) And p.Range.Words(1) = "Author " Then
    p.Range.HighlightColorIndex = wdRed
End If

您需要在Author之后添加空格，只要它也是单词的一部分。学习使用 F8 进行调试，对于像这样的简单任务，它将非常有用。

修改 正如评论中所建议的，InStr(p.Range.Words(1), "Author")将无需为搜索结果添加空格。