Macros de Word VBA - Plantillas (Hacer nuevo)

Plantilla actual

Esta macro de Word VBA mostrará la plantilla actual:

Sub DisplayCurrentTemplate () 'muestra la ruta completa del documento activo de la plantilla MsgBox ActiveDocument.AttachedTemplate.FullName, "Ubicación de la plantilla" End Sub

Crear nueva plantilla

Esta macro de Word VBA creará una nueva plantilla:

Sub MakeNewTemplate () 'crea un nuevo documento y lo guarda como una plantilla. Ejemplo easyexcel.net template.dotm "Establecer oDoc = Documents.Add 'crear un nuevo documento y asignarlo a la variable oDoc' escribir texto en el nuevo documento refiriéndose a él usando la variable oDoc oDoc.Range.InsertBefore" Plantilla de muestra "oDoc. Range.InsertParagraphAfter oDoc.Range.InsertAfter "Visita https://easyexcel.net/vba-code-library" oDoc.SaveAs FileName: = strPath & strName, FileFormat: = wdFormatXMLTemplateMacroEnabled, AddToRecentFiles: = False oDochangesNotSavec End Sub 

Va a ayudar al desarrollo del sitio, compartir la página con sus amigos

wave wave wave wave wave