MS Word VBA:获取文档的附件模板

史蒂夫·G。

(使用Windows 10和MS Word2016。全局模板为:Normal.dotx和Autoload.dotm。某些文档的附加模板为:Reference.dotx)

大家好,

我在VBA中获取文档的附件模板时遇到问题。

我有一个全局模板,该模板在加载MS Word时加载,称为Autoload.dotm。但是,对于某些特定文档,它们使用附加的模板,而不是全局模板(Autload.dotm)或常规模板(Normal.dotx)。该附加模板称为Reference.dotx。

所以我使用ActiveDocument.AttachedTemplate。但这将返回Autoload.dotm,而不是Reference.dotx。我需要找出在“开发人员”->“文档模板”->“模板”选项卡->“文档模板”中定义的附加模板是否为Reference.dotx。(不要认为这会有所作为,但是选中了“自动更新文档样式”复选框。)有人知道我如何找到文档是否使用Reference.dotx吗?我不需要任何返回的全局模板。

我用来获取附件模板的代码很简单:

    If (ActiveDocument.AttachedTemplate = "Reference.dotx") Then
        PrepareDocument_enabled = True
    End If
尼克拉斯

也许这对您有帮助?它将显示使用的模板。

Sub Macro1()
Dim strPath As String
    strPath = Dialogs(wdDialogToolsTemplates).Template
    MsgBox strPath
End Sub

否则,您可以使用它来更改模板

Sub ChangeAttachedTemplate()
Dim oDoc As Document
Dim oTemplate As Template
Dim strTemplatePath As String

Set oDoc = ActiveDocument

If oDoc.Type = wdTypeTemplate Then Exit Sub

Set oTemplate = oDoc.AttachedTemplate

Debug.Print oTemplate.FullName

' Path is probably: C:\Users\USERNAME\AppData\Roaming\Microsoft\Templates\
If InStr(UCase(oTemplate.FullName), UCase("Path of the template")) > 0 Then
     oDoc.AttachedTemplate = "PATH TO TEMPLATE" & "TEMPLATE NAME.dotm"
End If
End Sub

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

MS Word文档中的变量

来自分类Dev

从图像创建MS Word模板

来自分类Dev

从 Django 填充 MS Word 模板

来自分类Dev

VBA MS Word 表格创建

来自分类Dev

在Django中生成MS Word文档

来自分类Dev

断开与外部文档MS Word的链接

来自分类Dev

将外壳输出写入MS Word文档

来自分类Dev

MS Word-在页面中间滚动文档?

来自分类Dev

向MS Word文档添加注释

来自分类Dev

跳到MS Word文档中的某个部分

来自分类Dev

MS / Word隐藏文本和模板

来自分类Dev

MS Access 2013:通过VBA使用MS Word的语法检查

来自分类Dev

VBA MS Word内容控制混乱的顺序

来自分类Dev

画布的 MS-Word VBA 拟合方法

来自分类Dev

vba ms-word 查找文本并获取相邻数字

来自分类Dev

如何使用MS Access中触发的VBA更改MS Word文档中形状的颜色?

来自分类Dev

从PHP获取对MS Word宏的访问

来自分类Dev

MS Word VBA将Word文档的嵌套列表转换为HTML嵌套列表

来自分类Dev

MS-Word文档附录中的图形标题处理方法

来自分类Dev

将新的xml属性插入MS Word xml文档元素

来自分类Dev

MS Word函数可将范围附加到文档

来自分类Dev

使用Aspose以编程方式编辑MS Word文档

来自分类Dev

使用Go OLE绑定创建MS Word文档

来自分类Dev

MS Word 2007中的文档结构图

来自分类Dev

尝试保存文档时,MS Word进入只读模式

来自分类Dev

使用webdav和asp .net mvc打开MS Word文档

来自分类Dev

MS Word比较文档:如何重置最近的文件列表

来自分类Dev

MS Word文档中的“打印布局”按钮被禁用

来自分类Dev

为什么MS Word更改文档中的字符间距?