Макросы 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 "Set oDoc = Documents.Add 'создать новый документ и присвоить его переменной oDoc' написать текст в новом документе, ссылаясь на него, используя переменную oDoc oDoc.Range.InsertBefore" Образец шаблона "oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter «Посетите https://easyexcel.net/vba-code-library» oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled, AddToloseChanges.oDoc. Конец подписки