Attent votre aide concernant VB.net - WORD

Question

je réalise actuellement un logiciel qui récupère des données dans une base access et les affiche sur word. L'affichage est standart, donc j'utilise un modèle de document .dot . 

Je souhaite utiliser le système des signets qui correspond à ce que je veux faire. je me suis informer et j'ai trouver cette façon de faire :

""""
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim wrdRange As Word.Range

'Création de l'objet word
wrdApp = New Word.Application

'ouverture du document word servant de template
wrdDoc = wrdApp.Documents.Open("C:\...\Modele.dot")

wrdRange = wrdDoc.Bookmarks("Nom du signet").Range
wrdRange.Text = "texte à insérer"
"""""

Mais la ligne suivante ne passe pas :
wrdRange = wrdDoc.Bookmarks("Nom du signet").Range

C'est un exemple que j'ai pourtant retrouvé souvent mais utilisé en vb6. 
Alors est-ce que ça a changé en vb.net ou est-ce que j'ai pas tout déclaré...???

Doro81079 · Answer

bonsoir,
Je ne connais pas vb.net mais tu dis t'&#234;tre servis de cette ligne en vb6 
"wrdRange = wrdDoc.Bookmarks("Nom du signet").Range"
or en vb6 il faut que tu ajoutes apr&#233;s range ( .text = "texte &#224; ins&#233;rer") et non en dessous
alors peut &#234;tre que c'est pareil pour vb.net , mais je n'en suis pas sur pour le vb.net
tiens moi au courant

doro

indet2 · Answer

En fait g trouvé la solution. Il faut ajouter .item derrière booksmark pour choisir le signet. Dans toutes les aides que j'avais trouvé auparavant, le .item n'apparaissait pas. ça a du changer.

Pour ce qui est d'ajouter .text = "texte à insérer" après range, ça fonctionne. J'ai simplement séparer en deux lignes le code pour la compréhension

""""
wrdRange = wrdDoc.Bookmarks.Item("nom_signet").Range
wrdRange.Text = "texte à inséré"
"""""

Attent votre aide concernant VB.net - WORD

2 réponses

Discussions similaires