Innehållsförteckning
Nuvarande mall
Detta Word VBA -makro visar den aktuella mallen:
Sub DisplayCurrentTemplate () 'visar hela sökvägen till det aktiva mallens dokument MsgBox ActiveDocument.AttachedTemplate.FullName,, "Mallplats" Avsluta sub
Skapa ny mall
Detta Word VBA -makro kommer att skapa en ny mall:
Sub MakeNewTemplate () 'skapar ett nytt dokument och sparar som en mall Dim strName As String Dim strPath As String Dim oDoc As Document strPath = Options.DefaultFilePath (wdUserTemplatesPath) & Application.PathSeparator' hitta var mallar lagras på användarens dator strName = " Exempel på easyexcel.net template.dotm "Set oDoc = Documents.Add" skapa ett nytt dokument och tilldela det till oDoc -variabel "skriv lite text i det nya dokumentet som hänvisar till det med oDoc -variabel oDoc.Range.InsertBefore" Exempelmall "oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Besök https://easyexcel.net/vba-code-library" oDoc.SaveAs Filnamn: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled, AddToRecentFiles: = False oDocNoces.CloseDoc.No.DocneConnes Avsluta Sub
