Riprendo, a distanza di tempo, questo post per chiedere se c'è un'altra soluzione al mio problema in quanto il processo è un po' lento (una decina di secondi). Si può fare in altro modo, più veloce ?
Ecco comunque il codice da me utilizzato :
codice:
   '--- ora lo salvo come pdf
   Dim ObjWord            As word.Application
   Dim ObjDoc              As New word.Document
   Set ObjWord = New word.Application
   With ObjDoc.PageSetup
      .PaperSize = wdPaperA4
      .Orientation = wdOrientPortrait
   End With
   Set ObjDoc = ObjWord.Documents.Add(App.Path & "\tempmodulo.htm")
   ObjDoc.SaveAs (NomeFile), wdFormatPDF
   ObjWord.Visible = False
   On Error Resume Next
   ObjWord.Quit 0 
   Set ObjWord = Nothing
   On Error GoTo 0