如何用VBA取得原失效的关联模板的文件名

stiger · 发表于 2016-10-8 16:00

问题：如文档原来关联的模板的文件名是D:\aa\bb.dot
现在bb.dot模板不在了，文档打开后可以从工具--模块和加载项的模板看到原关联模板的文件名，但是用:
ActiveDocument.AttachedTemplate.FullName 已无法获取原关联模板的文件名了。
同时也可以用插入域｛ TEMPLATE \p｝的方式获取原关联模板名。
请问如何用代码获取原关联模板的文件名？谢谢。

stiger · 发表于 2016-10-8 16:15

如果用：ActiveDocument.BuiltInDocumentProperties(6) 可以返回bb.dot,没办法返回完整的路径。

duquancai · 发表于 2016-10-8 20:12

stiger 发表于 2016-10-8 16:15
如果用：ActiveDocument.BuiltInDocumentProperties(6) 可以返回bb.dot,没办法返回完整的路径。

Sub 显示模板名()
Set myTemplate = ActiveDocument.AttachedTemplate
MsgBox myTemplate.Path & Application.PathSeparator & myTemplate.Name
End Sub

复制代码

stiger · 发表于 2016-10-8 21:17

谢谢duquancai，这样显示的是现在的关联模板的文件名，用
ActiveDocument.AttachedTemplate.FullName就可以了

		自动登录	找回密码
密码			免费注册

[求助] 如何用VBA取得原失效的关联模板的文件名