「定理証明」で始まる段落を見つけよう

Question

「定理証明」で始まる段落を赤でマークしたいと思います。私のコードは以下の通りです

：

Sub theorem() 
    Dim p As Paragraph, d As Document 
     For Each p In ActiveDocument 
     If p.Range.Words(1) = "Proof " And p.range.words(2) = "of " and p.Range.Words(3) = "theorem " Then 
       End If 
    End Sub 

私はこの方法を感じる「If p.Range.Words(1) = "Proof " And p.range.words(2) = "of " and p.Range.Words(3) = "theorem "は」かさばるです。より簡潔な方法やその他のヒントがあるかどうか尋ねたいと思います。

Answer 1

は、あなただけの段落の最初の16個の文字を取得するために、Left機能を使用し、そのテストすることができ： `Range.Text`方法がある場合は

Sub theorem() 
    Dim p As Paragraph, d As Document 
    For Each p In ActiveDocument.Paragraphs 
     If Left(p.Range.Text, 16) = "Proof of theorem" Then 
      p.Range.Font.ColorIndex = wdRed 
     End If 
    Next 
End Sub