Macros VBA do Word - modelos (fazer novos)

Modelo Atual

Esta macro VBA do Word exibirá o modelo atual:

Sub DisplayCurrentTemplate () 'exibe o caminho completo do documento ativo do modelo MsgBox ActiveDocument.AttachedTemplate.FullName,, "Localização do modelo" End Sub

Faça um novo modelo

Esta macro VBA do Word criará um novo modelo:

Sub MakeNewTemplate () 'cria um novo documento e salva como um modelo Dim strName As String Dim strPath As String Dim oDoc As Document strPath = Options.DefaultFilePath (wdUserTemplatesPath) & Application.PathSeparator' encontre onde os modelos são armazenados no computador do usuário strName = " Sample easyexcel.net template.dotm "Definir oDoc = Documents.Add 'criar um novo documento e atribuí-lo à variável oDoc' escrever algum texto no novo documento referindo-se a ele usando a variável oDoc oDoc.Range.InsertBefore" Modelo de amostra "oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Visite https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled, AddToRecentFiles.ClientN End Sub 
wave wave wave wave wave