特定の段落を見つける

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")は、検索対象にスペースを追加する必要がなくなります。