Поточний шаблон
Цей макрос Word VBA відображатиме поточний шаблон:
Sub DisplayCurrentTemplate () 'відображає повний шлях активного документа шаблону MsgBox ActiveDocument.AttachedTemplate.FullName,, "Розташування шаблону"
Створити новий шаблон
Цей макрос 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.InsertПеред" Зразок шаблону "oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Відвідайте https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled End Sub
