Trenutna predloga
Ta makro Word VBA bo prikazal trenutno predlogo:
Sub DisplayCurrentTemplate () 'prikaže celotno pot aktivnega dokumenta predloge MsgBox ActiveDocument.AttachedTemplate.FullName,, "Lokacija predloge" End Sub
Ustvari novo predlogo
Ta makro Word VBA bo naredil novo predlogo:
Sub MakeNewTemplate () 'ustvari nov dokument in ga shrani kot predlogo Dim strName As String Dim strPath As String Dim oDoc As Document strPath = Options.DefaultFilePath (wdUserTemplatesPath) & Application.PathSeparator' poiščite, kje so shranjene predloge na uporabnikovem računalniku strName = " Vzorec easyexcel.net template.dotm "Set oDoc = Documents.Add" ustvari nov dokument in ga dodeli spremenljivki oDoc "napiši nekaj besedila v nov dokument, ki se nanj nanaša z uporabo spremenljivke oDoc oDoc.Range.InsertBefore" Vzorčna predloga "oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Obiščite https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled End Sub
