Innholdsfortegnelse
Gjeldende mal
Denne Word VBA -makroen vil vise gjeldende mal:
Sub DisplayCurrentTemplate () 'viser hele banen til malaktivt dokument MsgBox ActiveDocument.AttachedTemplate.FullName,, "Malplassering" End Sub
Lag ny mal
Denne Word VBA -makroen vil lage en ny mal:
Sub MakeNewTemplate () 'oppretter et nytt dokument og lagrer som en mal Dim strName As String Dim strPath As String Dim oDoc As Document strPath = Options.DefaultFilePath (wdUserTemplatesPath) & Application.PathSeparator' finner hvor maler er lagret på brukerens datamaskin strName = " Eksempel på easyexcel.net template.dotm "Set oDoc = Documents.Add 'opprett et nytt dokument og tilord det til oDoc -variabel' skriv litt tekst i det nye dokumentet som refererer til det ved å bruke oDoc -variabel oDoc.Range.InsertBefore" Eksempelmal "oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Besøk https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled, AddToRecentFiles: = False oDocNoClocDoces.CloseDoc.No.Changes Slutt Sub