Satura rādītājs
Pašreizējā veidne
Šis Word VBA makro parādīs pašreizējo veidni:
Sub DisplayCurrentTemplate () 'parāda visu veidnes aktīvā dokumenta MsgBox ActiveDocument.AttachedTemplate.FullName, "Veidnes atrašanās vieta" beigu apakšdaļu
Izveidojiet jaunu veidni
Šis Word VBA makro izveidos jaunu veidni:
Sub MakeNewTemplate () 'izveido jaunu dokumentu un saglabā kā veidni Dim strName As String Dim strPath Kā virkne Dim oDoc As Document strPath = Options.DefaultFilePath (wdUserTemplatesPath) & Application.PathSeparator' atrodiet, kur veidnes tiek glabātas lietotāja datorā strName = " Paraugs easyexcel.net template.dotm "Set oDoc = Documents.Add" izveidojiet jaunu dokumentu un piešķiriet to oDoc mainīgajam. Uzrakstiet tekstu jaunajā dokumentā, atsaucoties uz to, izmantojot oDoc mainīgo oDoc.Range.InsertBefore "Parauga veidne" oDoc. Range.InsertPa bekezdésAfter oDoc.Range.InsertAfter "Apmeklējiet vietni https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled, AddToReCeTeOdFoLeDeOdTeOdT Beigt apakš
