Home
Home

---Soumis par Dev Ashish---

Ouvrir un nouveau document Word basé sur un modèle, avec Automation.

    Pour ouvrir un document Word basé sur un modèle existant, vous devez spécifier le nom du modèle (template) comme argument à la méthode Add de la collection Documents. 

    Si le modèle  (.DOT) est sauvegardé dans le répertoire  UserTemplates,  on peut utiliser la constante pré-définie  wdUserTemplatesPath. Autrement, il faut fournir le nom complet du fichier modèle.

'****** Code Start ********
Private mobjWordApp As Word.Application

Private Sub Command1_Click()
Const conTEMPLATE_NAME = "\Templates\merge.dot"

   Set mobjWordApp = New Word.Application
   With mobjWordApp
      .Visible = True
      .WindowState = wdWindowStateMaximize
      .Documents.Add Template:=(.Options.DefaultFilePath( _
               wdUserTemplatesPath) _
               & conTEMPLATE_NAME)
   End With
End Sub
'****** Code End ********