Discussion :

[djelloharmel]

Bonjour,
J'ai un document word qui contient un signet nommé "TitreDoc". J'échoue à récupérer la valeur contenue dans un signet, c'est-à-dire le texte écrit à l'emplacement de ce signet

Le code de connexion à Ms Word:

Code :

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

1
2
3
4
5
Dim wrdApp As Microsoft.Office.Interop.Word.Application
        Dim wrdDoc As Microsoft.Office.Interop.Word.Document
 
        wrdApp = New Microsoft.Office.Interop.Word.Application
        wrdDoc = wrdApp.Documents.Open(CheminDuDocumentWord)

Le code de récupération:

Code :

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

Dim M As String = wrdDoc.Bookmarks("TitreDoc").Range.Text

ou encore

Code :

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

Dim M As String = wrdDoc.Bookmarks(wrdDoc.Bookmarks("TitreDoc").Name).Range.Text

la variable "M" ramène la valeur "Nothing"

Je vous prie de me mettre sur la voie

[djelloharmel]

Je lis depuis qu'il est plus facile d'écrire dans les signets que de lire et récupérer ce qui y est écrit.

[Phil Rob]

Bonjour,

Tu accèdes à la propriété TEXT d'un signet, en lecture ou en écriture, de cette manière :

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
 
' Les déclarations pour cet exemple :
        Dim WAPP As New Microsoft.Office.Interop.Word.Application
        Dim UnDoc As New Microsoft.Office.Interop.Word.Document
 
 
' Ouvrir le DOC :
       UnDoc = WAPP.Documents.Open(... chemin et nom complet du DOC ...)
       WAPP.Visible = True
 
' Un Signet est designé par son nom 
' ... et nous pouvant lui affecter une valeur :
        UnDoc.Bookmarks("LeNomDuSignet").Range.Text = "Le signet n'est pas fait pour ça, meilleurs sont les champs de fusion et les tables"
 
' ... ou lire sa valeur :
        UnTextBox.Text = UnDoc.Bookmarks("LeNomDuSignet").Range.Text

J'espère que ceci t'aidera.

Bonne journée ...

[djelloharmel]

Merci Phil Rob
Il y avait quelques petits aménagements à faire. ça marche convenablement