Espero que alguien con conocimientos en programación Vba me pueda ayudar.
Paso el siguiente código en vba en word para habilitar automaticamente cuando ejecuto la macro un complemento de plantilla llamado "PlantillaEmailLotus.dotm"
Sub Plantilla()
'
' Plantilla Macro
AddIns( _
"D:\local\My Documents\Importar a Lotus Notas\LOTUS CORRESPONDENCIA\Add in\PlantillaEmailLotus.dotm" _
).Installed = True
With ActiveDocument
.UpdateStylesOnOpen = False
.AttachedTemplate = "Normal"
.XMLSchemaReferences.AutomaticValidation = True
.XMLSchemaReferences.AllowSaveAsXMLWithoutValidation = False
End With
End Sub[/CODE]
El código funciona muy bien puesto que lo cree con la gravadora de macros de word, lo que necesito es cambiar la dirección del directorio ("D:\local\My Documents\Importar a Lotus Notas\LOTUS CORRESPONDENCIA\Add in\PlantillaEmailLotus.dotm") por una ruta automatica a través de (ThisDocument.Path &) es decir para que este macro se pueda ejecutar por otros usuarios hallando el directorio automaticamente donde se ubica la plantilla (PlantillaEmailLotus.dotm")
Agradeciendo la ayuda posible que me pueden brindar.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas noches señores AyudaExcel
Espero que alguien con conocimientos en programación Vba me pueda ayudar.
Paso el siguiente código en vba en word para habilitar automaticamente cuando ejecuto la macro un complemento de plantilla llamado "PlantillaEmailLotus.dotm"
El código funciona muy bien puesto que lo cree con la gravadora de macros de word, lo que necesito es cambiar la dirección del directorio ("D:\local\My Documents\Importar a Lotus Notas\LOTUS CORRESPONDENCIA\Add in\PlantillaEmailLotus.dotm") por una ruta automatica a través de (ThisDocument.Path &) es decir para que este macro se pueda ejecutar por otros usuarios hallando el directorio automaticamente donde se ubica la plantilla (PlantillaEmailLotus.dotm")
Agradeciendo la ayuda posible que me pueden brindar.