Trenutni predložak
Ova Word VBA makronaredba prikazat će trenutni predložak:
Sub DisplayCurrentTemplate () 'prikazuje punu putanju aktivnog dokumenta predloška MsgBox ActiveDocument.AttachedTemplate.FullName,, "Mjesto predloška" Kraj pod
Napravi novi predložak
Ova Word VBA makronaredba napravit će novi predložak:
Pod MakeNewTemplate () 'stvara novi dokument i sprema kao predložak Dim strName As String Dim strPath As String Dim oDoc As Document strPath = Options.DefaultFilePath (wdUserTemplatesPath) & Application.PathSeparator' pronađi gdje su predlošci pohranjeni na korisničkom računalu strName = " Uzorak easyexcel.net template.dotm "Postavi oDoc = Dokumenti. Dodaj" izradi novi dokument i dodijeli ga varijabli oDoc "upiši neki tekst u novi dokument pozivajući se na njega koristeći oDoc varijablu oDoc.Range.InsertPrije" Uzorak predloška "oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Posjetite https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled Kraj podm
