Finden Sie einen bestimmten Absatz

Question

Wie das Bild zeigt, möchte ich diesen Absatz der rot finden, aber nicht den Absatz als grün markiert finden.
Ich habe den folgenden Code versucht. Allerdings kann keine Antwort auf den Lauf, jemand kann mir sagen, wie man diesen Code verbessern. Wenn ich Fehler auf niedriger Ebene mache, kann die Hoffnung mich korrigieren, danke.

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

es so versuchen:

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

Sie müssen den Raum nach Author, soweit sie einen Teil des Wortes hinzufügen, wie gut ist. Lernen Sie, mit F8 zu debuggen, es wird von großem Nutzen für Sie in einfachen Aufgaben wie diesem sein.

Edit: Wie im Kommentar vorgeschlagen, InStr(p.Range.Words(1), "Author") beseitigt die Notwendigkeit für einen Raum zum gesuchten hinzufügen.