Word VBA-Makros - Vorlagen (Neu erstellen)

Aktuelle Vorlage

Dieses Word VBA-Makro zeigt die aktuelle Vorlage an:

Sub DisplayCurrentTemplate() 'zeigt den vollständigen Pfad des aktiven Vorlagendokuments an MsgBox ActiveDocument.AttachedTemplate.FullName, , "Vorlagenspeicherort" End Sub

Neue Vorlage erstellen

Dieses Word-VBA-Makro erstellt eine neue Vorlage:

Sub MakeNewTemplate() 'erstellt ein neues Dokument und speichert es als Vorlage Dim strName As String Dim strPath As String Dim oDoc As Document strPath = Options.DefaultFilePath(wdUserTemplatesPath) & Application.PathSeparator 'findet, wo Vorlagen auf dem Computer des Benutzers gespeichert sind strName = " Beispiel easyexcel.net template.dotm" Set oDoc = Documents.Add 'Erstelle ein neues Dokument und weise es der oDoc-Variablen zu 'Schreibe einen Text in das neue Dokument, der darauf verweist, indem du die oDoc-Variable oDoc.Range.InsertBefore "Beispielvorlage" oDoc verwendest. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Besuche https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName:=strPath & strName, FileFormat:=wdFormatXMLTemplateMacroEnabled, AddToRecentFiles:=FalseDo'NotSdoclose End Sub