Autres VBA pour Word à partir de VBA pour Excel

Je ne sais pas la difficulté pour les récupérer via VBA Word bien qu'il soit possible de connaître le texte du signet et sa position :

De mémoire les signets sont enregistrés comme liens internes tu peux exporter le document sous le format HTML (filtré) et chercher les balises <a name=hhh> ..</a> faciles à capturer par les expressions régulières ainsi tu peux les exposer dans le document

Bonsoir
En fait je travaille à partir d'un classeur Excel ouvert et actif (pour des raisons de facilité en ce qui concerne les synthèses) et j'analyse le fichier .docx enregistré sur mon disque dur :

Set wrd = CreateObject("Word.Application")
wrd.Documents.Open Filename:="D:\Généalogie\ProjetRelevéActesTamatave-1866-1922\RelevésActesTamatave-Madagascar-1866-1918-Version36.docx"
' je remplis un tableau Signet(NombreSignets)
NombreSignets = 0

For n = 1 To wrd.ActiveDocument.bookmarks.Count
' MsgBox Left(Trim(wrd.ActiveDocument.bookmarks(n).Name), 4)
If Left(Trim(wrd.ActiveDocument.bookmarks(n).Name), 4) <> "Acte" And Left(Trim(wrd.ActiveDocument.bookmarks(n).Name), 4) <> "MADT" And Left(Trim(wrd.ActiveDocument.bookmarks(n).Name), 4) <> "Clas" Then
' Ne sélectionne que les noms de personne et pas les actes
NombreSignets = NombreSignets + 1
If NombreSignets = 1 Then
ReDim Signet(NombreSignets)
Else
ReDim Preserve Signet(NombreSignets)
End If

Signet(NombreSignets).TexteSignet = Trim(wrd.ActiveDocument.bookmarks(n).Name)
Signet(NombreSignets).PageSignet = wrd.ActiveDocument.bookmarks(n).Range.Information(3)
Paragraphe = wrd.ActiveDocument.Range(Start:=1, End:=wrd.ActiveDocument.bookmarks(n).Start).Paragraphs.Count + 2
Signet(NombreSignets).NuméroParagrapheSignet = Paragraphe
Signet(NombreSignets).TexteParagrapheSignet = wrd.ActiveDocument.Paragraphs(Paragraphe).Range
Signet(NombreSignets).PositionSignet = wrd.ActiveDocument.bookmarks(n).Start

End If

Next n

Mais j'ai simplement recopié et légèrement adapté ce code sans trop le comprendre et en particulier
wrd.ActiveDocument.Range(Start:=1, End:=wrd.ActiveDocument.bookmarks(n).Start).Paragraphs.Count + 2
C'est là où je voudrais en plus le paragraphe suivant et savoir comment modifier Range(Start:=1, End:=wrd.ActiveDocument.bookmarks(n).Start).Paragraphs.Count + 2 pour l'avoir

Jean-Luc