Macros Word VBA - Modèles (Créer de nouveaux)

Modèle actuel

Cette macro Word VBA affichera le modèle actuel :

Sub DisplayCurrentTemplate() 'affiche le chemin complet du modèle de document actif MsgBox ActiveDocument.AttachedTemplate.FullName, , "Emplacement du modèle" End Sub

Créer un nouveau modèle

Cette macro Word VBA créera un nouveau modèle :

Sub MakeNewTemplate() 'crée un nouveau document et l'enregistre en tant que modèle Dim strName As String Dim strPath As String Dim oDoc As Document strPath = Options.DefaultFilePath(wdUserTemplatesPath) & Application.PathSeparator' trouve où les modèles sont stockés sur l'ordinateur de l'utilisateur strName = " Sample easyexcel.net template.dotm" Set oDoc = Documents.Add 'créer un nouveau doc ​​et l'affecter à la variable oDoc 'écrire du texte dans le nouveau doc ​​en y faisant référence en utilisant la variable oDoc oDoc.Range.InsertBefore "Sample template" oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Visit https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName:=strPath & strName, FileFormat:=wdFormatXMLTemplateMacroEnabled, AddToRecentFiles:=False oDoc'NotChose.Close Fin du sous-marin