VBA ACCESS Détecter et afficher les signets d’un document WORD à partir d’Access

Parfois, il est opportun d’identifier tous les signets d’un document Word et ce pour programmer certaines actions en fonction du nom du signet.

Nous vous proposons dans ce qui suit un code VBA qui peut être exécuté depuis Ms Access et permet d’afficher tous les signets du document Word d’un boite de message « MSGBOX ».

Ensuite, vous pouvez adapter ce code en fonction des besoins de votre programmation en VBA.

Sub affichage_signet(ByVal mission As String)

Dim PATH, Path_Modele, Message  As String

Dim MonBeauWord As Object

Set MonBeauWord = CreateObject("Word.Application")

Dim NB_signet, i  As Integer

Set bd = CurrentDb

Form_VARIABLE_TEMP.TXT_REF.Value = REF

MonBeauWord.Visible = True

Path_Modele = Application.CurrentProject.PATH & "\MODEL\RAPPORT.docx"

PATH = Application.CurrentProject.PATH & "\DOSS_OUTPUT\" & mission & "\RAPPORT.docx"

Set fso = CreateObject("Scripting.FileSystemObject")

fso.CopyFile Path_Modele, PATH, overswiteexisting = 0

MonBeauWord.Documents.Open (PATH)

NB_signet = MonBeauWord.ActiveDocument.Bookmarks.Count

For i = 1 To NB_signet

Message = MonBeauWord.ActiveDocument.Bookmarks(i).Name  & vbCrLf

Next

MsgBox Message

End Sub

Auteur: N’hésitez pas à me signaler les erreurs qui peuvent glisser dans cet article afin de les corriger.