Bonjour,

J'utilise le code suivant pour parcourir mon doc et connaître le style associé à mes paragraphes.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
    For Each aWord In currentParagraph.Range.Words
        aWord.Select
        If (Selection.Type <> wdSelectionInlineShape And Selection.Type <> wdSelectionShape) Then
            currentParagraphStyle = aWord.Style
            wordStyleFound = True
            Exit For
        End If
    Next
Il fonctionne 99% du temps et puis de temps à autre j'ai un crash sur la 5ème ligne (aWord.Style) de type Erreur d'exécution '91', Variable objet ou variable de bloc With non définie.

J'ai cherché pas mal d'aide sur la toile mais j'avoue ne pas comprendre comment résoudre ce problème. Pouvez-vous m'aider ?

Merci d'avance.