Word VBA makrók - sablonok (új)

Aktuális sablon

Ez a Word VBA makró megjeleníti az aktuális sablont:

Sub DisplayCurrentTemplate () 'megjeleníti a sablon aktív dokumentum teljes elérési útját MsgBox ActiveDocument.AttachedTemplate.FullName,, "Sablon helye" End Sub

Új sablon készítése

Ez a Word VBA makró új sablont készít:

A Sub MakeNewTemplate () 'új dokumentumot hoz létre, és sablonként menti Minta easyexcel.net template.dotm "Az oDoc = Documents.Add beállítása" hozzon létre egy új dokumentumot, és rendelje hozzá az oDoc változóhoz. Írjon néhány szöveget az új dokumentumba, utalva rá az oDoc változó oDoc.Range.InsertBeablon "Minta sablon" oDoc használatával. Range.InsertPa paragraphAfter oDoc.Range.InsertAfter "Látogassa meg a https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled, AddToRoCeocDoc.exe End Sub