Algo parecido com isto, não manjo de Word.

  
  'Set doc = appWord.Documents.Open("C:Tema.doc")
Set doc = ThisDocument
For i =  doc.Paragraphs.Count to 1 step -1

Paragraphs(i).Select
Application.Selection.Find.ClearFormatting
    If Application.Selection.Find.Execute("^pRELATÓRIO^p") = True Then
    Msgbox "Relatório encontrado", vbInformation, "Item de verificação"
    Else: Msgbox "Não encontrei o relatório na minuta que analisei. Se houver algum ajuste a ser feito, lembre-se de modificar também no relatório!", vbInformation, "Item de verificação"
    End If
      

    Next i

Primeiramente, klarc28, muito obrigado!! É a primeira vez que alguém responde a uma pergunta minha no fórum!! Valeu mesmo!!

Na linha "Paragraphs(i).Select", deu a seguinte mensagem de erro: "Sub ou Function não definida".

Como que posso definir?

 
Sub teste (  )

'Set doc = appWord.Documents.Open("C:Tema.doc")
Set doc = ThisDocument
For i =  doc.Paragraphs.Count to 1 step -1

ActiveDocument.Paragraphs(i).Range.Select
Application.Selection.Find.ClearFormatting
    If Application.Selection.Find.Execute("^pRELATÓRIO^p") = True Then
    Msgbox "Relatório encontrado", vbInformation, "Item de verificação"
    Else: Msgbox "Não encontrei o relatório na minuta que analisei. Se houver algum ajuste a ser feito, lembre-se de modificar também no relatório!", vbInformation, "Item de verificação"
    End If
      

    Next i

End Sub

Experimente esta sugestão:

Declare esta variável fora da sub:

Dim priTurn As Boolean

Substitua o seu codigo, por:

With Selection
          If priTurn = False Then
          .EndKey Unit:=wdStory
          End If
          With .Find
            .ClearFormatting
            .Text = "^pRELATÓRIO^p"
            .Forward = False
            .Format = True
            .MatchWholeWord = False
             If .Execute = True Then
                   MsgBox "Relatório encontrado", vbInformation, "Item de verificação"
                   priTurn = True
            Else
                   MsgBox "Não encontrei o relatório na minuta que analisei. Se houver algum ajuste a ser feito, " & _
                           "lembre-se de modificar também no relatório!", vbInformation, "Item de verificação"
                       priTurn = False
             End If
            Selection.Collapse wdCollapseStart
            .Forward = True
            .Execute
        End With
    End With

Top demais, Basole!! Deu super certo!!! Muito obrigado a ti e ao klarc28!