Dabartinis šablonas
Šioje „Word VBA“ makrokomandoje bus rodomas dabartinis šablonas:
Sub DisplayCurrentTemplate () 'rodo visą šablono aktyvaus dokumento kelią MsgBox ActiveDocument.AttachedTemplate.FullName,, "Šablono vieta" Pabaiga
Sukurkite naują šabloną
Ši „Word VBA“ makrokomanda sukurs naują šabloną:
Sub MakeNewTemplate () 'sukuria naują dokumentą ir išsaugo kaip šabloną Dim strName As String Dim strPath Kaip String Dim oDoc As Document strPath = Options.DefaultFilePath (wdUserTemplatesPath) & Application.PathSeparator' rasti, kur šablonai saugomi vartotojo kompiuteryje strName = " Pavyzdys easyexcel.net template.dotm "Nustatykite oDoc = Documents.Add" sukurkite naują dokumentą ir priskirkite jį prie "oDoc" kintamojo ", parašykite tam tikrą tekstą naujame dokumente, nurodydami jį naudodami oDoc kintamąjį oDoc.Range.InsertBefore" Šablono pavyzdys "oDoc. Range.InsertPa bekezdésAfter oDoc.Range.InsertAfter "Apsilankykite https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled, AddToReCeTeDeOdCL Pabaiga Sub
