Если вы пытаетесь указать путь к папке, в которой хранятся пользовательские шаблоны, вы можете попробовать
ActiveDocument.AttachedTemplate.Path
в качестве альтернативы (возвращает путь к папке, в которойтекущий шаблон сохраняется для пользователя).
В противном случае сохраните шаблон пути как что-то вроде
"C:\Users\###UserName###\AppData\Roaming\Microsoft\Templates"
, что дает вам одну строку для извлечения.Затем вы можете использовать функцию замены VBA, чтобы изменить ### имя_пользователя ### на значение Environ ("имя_пользователя)"
my_user_path = replace(my_path_template, Environ$("UserName"))
Возможно, вы захотите исследовать либо с помощью CustomDocumentProperty, либоПеременные, чтобы сохранить ваш шаблон пути, поскольку он сохраняет строку шаблона пути как часть документа или шаблона, а не в отдельном файле.