Estoy tratando de confirmar si un documento contiene algo de texto, el único problema es que este texto está en el Encabezado. Este es el código que estoy usando que constantemente devuelve falso a pesar de que el texto existe:

Set CurrentDoc = Documents.Open("a.doc")

With CurrentDoc.Sections(1).Headers(wdHeaderFooterFirstPage).Range.Find
    .Text = "This is the text to find"
    .Forward = True
    .Execute
    If (.Found = True) Then Debug.Print "Match"
End With

Lo siguiente tampoco parece funcionar (supongo.Content no incluye encabezado / pie de página):

With CurrentDoc.Content.Find
    .Text = "This is the text to find"
    .Forward = True
    .Execute
    If (.Found = True) Then Debug.Print "Match"
End With

Cualquier ayuda sería muy apreciada.