Macro VBA di Word - Modelli (Crea nuovo)

Modello attuale

Questa macro Word VBA visualizzerà il modello corrente:

Sub DisplayCurrentTemplate() 'visualizza il percorso completo del documento attivo del modello MsgBox ActiveDocument.AttachedTemplate.FullName, , "Posizione del modello" End Sub

Crea un nuovo modello

Questa macro Word VBA creerà un nuovo modello:

Sub MakeNewTemplate() 'crea un nuovo documento e lo salva come modello Dim strName As String Dim strPath As String Dim oDoc As Document strPath = Options.DefaultFilePath(wdUserTemplatesPath) & Application.PathSeparator 'trova dove i modelli sono memorizzati nel computer dell'utente strName = " Esempio easyexcel.net template.dotm" Set oDoc = Documents.Add 'crea un nuovo documento e assegnalo alla variabile oDoc 'scrivi del testo nel nuovo documento facendo riferimento ad esso utilizzando la variabile oDoc oDoc.Range.InsertBefore "Sample template" oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Visit https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName:=strPath & strName, FileFormat:=wdFormatXMLTemplateMacroEnabled, AddToSRecentChangeFiles:. Fine sottotitolo