Índice
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
