Trouver seul texte de style “Titre 1” (Gamme.Trouver pour correspondre à un style)

Je suis en train d'essayer de trouver du texte dans un document qui apparaît seulement dans le "Titre 1" les styles. Jusqu'à présent, en vain.

Exemple De Code:

With ThisDocument.Range.Find
    .Text = "The Heading"
    .Style = "Heading 1" 'Does not work
    .Execute
    If .Found Then Debug.Print "Found"
End With

Juste une remarque, il s'arrête à la table des matières.

Edit: correction de la mispelt if

OriginalL'auteur Matt Rowles | 2012-02-15