Récupérer la valeur dans un signet de Microsoft Word

Version imprimable

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:

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:

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

ou encore

Code:

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

04/05/2021, 12h03
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.

Bonjour,

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

Code:

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 ... :D

06/05/2021, 16h36
djelloharmel

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