'Voici pour la déclaration du code:
Dim wdapp As Word.Application

'Démarrer Word
Set wdapp = CreateObject("Word.application")
With wdapp
       .Visible = True

      'ouvrir le document
      .Documents.Open "Chemincompletdudocumentwordàouvrir"

      'Diriger le publipostage vers un nouveau document
     .ActiveDocument.MailMerge.Execute
End With

'fermer et libérer les objets
Set wdapp = Nothing 

Word.Application.Run MacroName:="nom macro"

Sub imprimer()
Dim oApp As New Word.Application
oApp.Documents.Open "D:\test.doc"
oApp.PrintOut
oApp.Quit
Set oApp = Nothing
End Sub

Sub OpenDocument()
Dim appwd As Word.Application
Dim strNomFichierWord As String
 
  strNomFichierWord = "C:\Un document.doc"
  Set appwd = CreateObject("Word.Application")
  With appwd
      .WordBasic.DisableAutoMacros 1 '0 pour activer
      .Visible = True
      .Documents.Open strNomFichierWord
      .Activate
  End With
End Sub