Récupérer champs dans Word

Bonjour,

J'ai lu cette discussion et j'ai moi-même besoin d'aide pour piloter Word.

Depuis Excel, j'aimerais sélectionner (.Follow) un certain champ dans la table des matières afin d'arriver directement à la page voulue.

J'ai déjà écrit ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Picture_Click()   Dim NumPicture As String Dim appword As Word.Application   NumPicture = Application.Caller Set appword = New Word.Application Application.DisplayAlerts = True appword.ShowMe appword.Visible = True appword.Documents.Open (ThisWorkbook.Path & "\Document.doc")   Dim Itm As Field   For Each Itm In ActiveDocument     Next   appword.Documents.Close End Sub

---

Donc c'est bien dans la boucle "For Each" que je suis bloqué car je n'arrive pas à contrôler chaque champ composant la table des matières et encore moins récupérer le numéro du champ afin de le comparer à la variable "NumPicture"

Première fois que j'utilise du word en vba et j'ai un peut de mal je dois dire ;)

Merci à(aux) âme(s) qui voudront bien m'aider !

J'ai pour finir trouvé comment faire, voici ma solution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Picture_Click()   Dim NumPicture As String     NumPicture = Application.Caller NumPicture = Mid(NumPicture, 9, 1) & "." & Mid(NumPicture, 10, Len(NumPicture) - 9) Set WordApp = New Word.Application Application.DisplayAlerts = False WordApp.ShowMe WordApp.Visible = True Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\" & Mid(ThisWorkbook.Name, 1, Len(ThisWorkbook.Name) - 4) & ".doc")   WordDoc.Application.Activate   WordDoc.TablesOfContents(1).UseFields = True   For i = 1 To WordDoc.Fields.Count If Left(WordDoc.Fields(i).Result.Text, Len(NumPicture)) = NumPicture Then WordDoc.Fields(i).DoClick End If Next End Sub

---

A+ sur le fofo