Word VBA-macro's - sjablonen (nieuw maken)

Huidige sjabloon

Deze Word VBA-macro geeft de huidige sjabloon weer:

Sub DisplayCurrentTemplate() 'toont het volledige pad van het actieve sjabloondocument MsgBox ActiveDocument.AttachedTemplate.FullName, , "Sjabloonlocatie" End Sub

Nieuwe sjabloon maken

Deze Word VBA-macro maakt een nieuwe sjabloon:

Sub MakeNewTemplate() 'maakt een nieuw document en slaat het op als een sjabloon Dim strName As String Dim strPath As String Dim oDoc As Document strPath = Options.DefaultFilePath(wdUserTemplatesPath) & Application.PathSeparator 'vind waar sjablonen zijn opgeslagen op de computer van de gebruiker strName = " Voorbeeld easyexcel.net template.dotm" Set oDoc = Documents.Add 'creëer een nieuw document en wijs het toe aan de oDoc-variabele 'schrijf wat tekst in het nieuwe document dat ernaar verwijst met behulp van de oDoc-variabele oDoc.Range.InsertBefore "Voorbeeldsjabloon" oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Bezoek https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName:=strPath & strName, FileFormat:=wdFormatXMLTemplateMacroEnabled, AddToRecentFiles:.Cavew oDoNot Einde sub