Surligner un mot, une phrase en publipostage avec les signets

Bonjour,

En insérant un mot dans un doc Word muni de signet, je voudrais savoir comment surligner le mot ou la phrase concerné ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
 
       Dim WordApp As Word.Application
        Dim WordDoc As Word.Document
        WordApp = CreateObject("Word.Application")
        WordApp.Visible = False
        WordDoc = WordApp.Documents.Open(My.Application.Info.DirectoryPath & "\Resources\Modèle_Vierge.doc", ReadOnly:=True)
 
        WordDoc.Bookmarks.Item("Text_1").Range.Text = "essai de ma phrase"
 
        WordApp.Visible = True
        WordDoc = Nothing

Merci pour votre aide.

Bruno

Bonjour,

J'ai dû modifier ta procédure pour l'adapter à ma machine. mais je pense que tu pourras quand même t'en tirer. Chez-moi, Word 2016, n'accepte pas de déclarer des objets Word sans établir la référence à Word, ou aux Primary Interop assemblies (Microsoft.interpop.xxxxx.dll). (En fait, depuis VS2010, même si on établit la référence avec l'exécutable (Winword.exe, excel.exe etc.) VB établit automatiquement la référence avec les PIA quand ils sont installés sur ta machine. Même que les PIA ont toujours, du moins depuis Office 2003, il me semble, conservés les même GUIDs, C'est la dernière version des PIA disponibles sur la machine qui est utilisée. Pour peu que l'on essaie pas d'utiliser des nouveautés d'une version d'Office sur une version plus ancienne, il n'y a pas lieu de se préoccuper des différentes versions d'office, ni d'utiliser systématiquement le Late Binding comme en VBA.

Également, les noms des constantes VBA ne passent pas par automation, il faut utiliser les valeurs numériques. (7 c'est pour VBYellow, 3 c'est pour WdSentence)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub SignetSurbrillant() 'Dim WordApp As Word.Application ' Dim WordDoc As Word.Document 'WordApp = CreateObject("Word.Application") ' WordDoc = WordApp.Documents.Open(My.Application.Info.DirectoryPath & "\Resources\Modèle_Vierge.doc", ReadOnly:=True) 'WordDoc.Bookmarks.Item("Text_1").Range.Text = "essai de ma phrase" Dim WordApp As Microsoft.Office.Interop.Word.Application = New Microsoft.Office.Interop.Word.Application WordApp.Visible = False Dim WordDoc As Microsoft.Office.Interop.Word.Document = WordApp.Documents.Open("C:\Copie\SignetAvecVBNet.docx") WordDoc.Bookmarks.Item("Texte1").Select() WordDoc.Bookmarks.Item("Texte1").Range.Text = "essai de ma phrase" Dim arange As Microsoft.Office.Interop.Word.Range = WordDoc.Range(Start:=WordDoc.Bookmarks("Texte1").Range.Start, End:=WordDoc.Bookmarks("Texte1").Range.End) arange.Expand(Unit:=3) arange.HighlightColorIndex = 7 WordApp.Visible = True WordDoc = Nothing End Sub

Bonjour Clément,

Génial, ça marche du tonnerre...:bravo:

Merci