Indholdsfortegnelse
Nuværende skabelon
Denne Word VBA -makro viser den aktuelle skabelon:
Sub DisplayCurrentTemplate () 'viser hele stien til skabelonens aktive dokument MsgBox ActiveDocument.AttachedTemplate.FullName,, "Template location" End Sub
Lav en ny skabelon
Denne Word VBA -makro vil lave en ny skabelon:
Sub MakeNewTemplate () 'opretter et nyt dokument og gemmer som en skabelon Dim strName As String Dim strPath As String Dim oDoc As Document strPath = Options.DefaultFilePath (wdUserTemplatesPath) & Application.PathSeparator' finder, hvor skabeloner er gemt på brugerens computer strName = " Eksempel på easyexcel.net -skabelon.dotm "Indstil oDoc = Documents.Add 'opret et nyt dokument og tildel det til oDoc -variabel' skriv noget tekst i det nye dokument med henvisning til det ved hjælp af oDoc -variabel oDoc.Range.InsertBefore" Eksempelskabelon "oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Besøg https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled, AddToRecentFiles: = False oDoc.DocneConnes Afslut Sub
