Word VBA макроси - шаблони (направете нови)

Текущ шаблон

Този макрос на Word VBA ще покаже текущия шаблон:

Sub DisplayCurrentTemplate () 'показва пълния път на шаблонен активен документ MsgBox ActiveDocument.AttachedTemplate.FullName,, "Местоположение на шаблона" End Sub

Направете нов шаблон

Този макрос на Word VBA ще направи нов шаблон:

Sub MakeNewTemplate () 'създава нов документ и записва като шаблон Dim strName As String Dim strPath As String Dim oDoc As Document strPath = Options.DefaultFilePath (wdUserTemplatesPath) & Application.PathSeparator' намери къде се съхраняват шаблони на компютъра на потребителя strName = " Пример на easyexcel.net template.dotm „Задаване на oDoc = Документи. Добавете„ създайте нов документ и го присвойте на променливата oDoc “напишете текст в новия документ, отнасящ се до него, използвайки променливата oDoc oDoc.Range.InsertBefore„ Примерен шаблон “oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Посетете https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled End Sub