Aktuální šablona
Toto makro Word VBA zobrazí aktuální šablonu:
Sub DisplayCurrentTemplate () 'zobrazuje úplnou cestu k šabloně aktivního dokumentu MsgBox ActiveDocument.AttachedTemplate.FullName, "Umístění šablony" End Sub
Vytvořit novou šablonu
Toto makro Word VBA vytvoří novou šablonu:
Sub MakeNewTemplate () 'vytvoří nový dokument a uloží jako šablonu 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ázka easyexcel.net template.dotm "Set oDoc = Documents.Add 'create a new doc and asign it to oDoc variable' write some text in the new doc referffing to it using oDoc variable oDoc.Range.InsertBefore" Sample template "oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Navštivte https://easyexcel.net/vba-code-library" oDoc.SaveAs Název_souboru: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled, AddToRecentDoSootCot End Sub
