Activación plantilla de word mediante macro

Buenas noches señores Todoexpertos
Espero que alguien con conocimientos en programación Vba me pueda ayudar.
Paso el siguiente código en vba en word para habilitar automáticamente una plantilla al ejecutar una macro como complemento de plantilla que se llama "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

El código funciona muy bien puesto que lo cree con la grabadora 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 automática a través de (ThisDocument.Path &) es decir para que este macro se pueda ejecutar por otros usuarios hallando el directorio automáticamente donde se ubica la plantilla (PlantillaEmailLotus.dotm")

lo intente con

 Dim strPath As String
strPath = ThisDocument.Path & "\PlantillaEmailLotus.dotmn"
AddIns("strPath").Installed = True

Pero no me funciono

Agradeciendo su atención y ayuda al planteamiento.