Aktuálna šablóna
Toto makro VBA programu Word zobrazí aktuálnu šablónu:
Sub DisplayCurrentTemplate () 'zobrazuje úplnú cestu k šablóne aktívneho dokumentu MsgBox ActiveDocument.AttachedTemplate.FullName, „Umiestnenie šablóny“ Koniec Sub
Vytvoriť novú šablónu
Toto makro Word VBA vytvorí novú šablónu:
Sub MakeNewTemplate () 'vytvorí nový dokument a uloží ho ako šablónu Dim strName As String Dim strPath As String Dim oDoc As Document strPath = Options.DefaultFilePath (wdUserTemplatesPath) & Application.PathSeparator' find where templates are stored on user's computer strName = " Ukážka šablóny easyexcel.net.dotm "Nastaviť oDoc = Documents.Add" vytvorte nový dokument a priraďte ho k premennej oDoc "napíšte nejaký text do nového dokumentu, ktorý naň odkazuje, pomocou premennej oDoc oDoc.Range.InsertBefore" Ukážková šablóna "oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Navštívte https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled, AddToRecentDootSotOdDoc Koniec pod