1. #1
    Membre actif Avatar de BRUNO71
    Homme Profil pro
    Conseiller technique ELec
    Inscrit en
    janvier 2007
    Messages
    417
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France

    Informations professionnelles :
    Activité : Conseiller technique ELec
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 417
    Points : 250
    Points
    250

    Par défaut 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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  2. #2
    Expert éminent

    Homme Profil pro
    Développeur .NET
    Inscrit en
    janvier 2012
    Messages
    3 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : janvier 2012
    Messages : 3 822
    Points : 7 793
    Points
    7 793
    Billets dans le blog
    17

    Par défaut

    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    À ma connaissance, le seul personnage qui a été diagnostiqué comme étant allergique au mot effort. c'est Gaston Lagaffe.

    À force de vouloir considérer les utilisateurs comme des imbéciles patentés, on risque de se mettre dans le trouble.

    Excel n'a jamais été, n'est pas et ne sera jamais un SGBD, c'est pour cela que Excel s'appelle Excel et ne s'appelle pas Access junior.

  3. #3
    Membre actif Avatar de BRUNO71
    Homme Profil pro
    Conseiller technique ELec
    Inscrit en
    janvier 2007
    Messages
    417
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France

    Informations professionnelles :
    Activité : Conseiller technique ELec
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 417
    Points : 250
    Points
    250

    Par défaut

    Bonjour Clément,

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

    Merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 23
    Dernier message: 01/08/2008, 13h35
  2. Réponses: 5
    Dernier message: 23/05/2008, 16h26
  3. [VBA-Excel]Avoir une boite de dialogue avec les arguments des fonctions ?
    Par EvaristeGaloisBis dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 29/05/2007, 09h37
  4. Réponses: 5
    Dernier message: 06/08/2006, 19h38
  5. Comment faire une division par 5 avec les decalages
    Par Zaion dans le forum Assembleur
    Réponses: 7
    Dernier message: 05/11/2004, 17h33

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo