Discussion :

[pgoossens]

Bonjour à tous,

Je me permets de vous solliciter car j'ai un problème que je n'arrive pas à résoudre.
J'ai actuellement développé une macro Excel qui me permet de récupérer des champs contrôleur contenu, champs docproperty et des caseoption de documents Word, de pouvoir changer les champs sur Excel. Et j'ai développé une autre macro qui permet d'exporter les champ modifiés sur les documents Word.

J'aimerai aussi pouvoir enlever le "surlignage" des documents Word à l'exportation.
J'ai écrit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
        Dim wd As Object
            For Each wd In DocWord.Words
                If wd.HighlightColorIndex = wdYellow Then
                    wd.HighlightColorIndex = wdNoHighlight
                End If
            Next wd

Il arrive à détecter les mots surligner mais m'indique ce message d'erreur à la ligne wd.HighlightColorIndex = wdNoHighlight:


J'ai cherché pendant longtemps sur internet mais je ne comprends pas d'où vient le problème.
Si j'effectue la même action avec des caractères gras, je n'ai aucun problème:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
            If wd.Bold = True Then
                   wd.Bold = False
            End If

Je me demande si ce n'est pas un problème de référence VBA non chargé mais je ne trouve pas, voici celle que j'ai actuellement:


Si qqn aurait une idée de ce qui bloque, je lui serait très reconnaissant.

Merci d'avance.
Philippe.

[pgoossens]

Bon je viens de voir qu'en mettant ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
        Dim wd As Object
            For Each wd In DocWord.Words
                If wd.HighlightColorIndex = wdYellow And wd.HighlightColorIndex = True Then
                    wd.HighlightColorIndex = wdNoHighlight
                End If
            Next wd

Certains motsdans Word qui étaient surlignés ne le sont plus mais pas tous: Va savoir pourquoi?