是否可以使用 Word VBA 从 Word 2013 中的附加模板中检索页边距定义？

Question

我为 Word 2013 构建了一个插件模板 (dotm)，其中包含各种宏，可以自动执行 Active 文档中重复且费力的任务。它们来自用户窗体上的控件运行。一切正常，但有一件事我似乎做不到。

情况是我收到了一份不基于特定模板（例如，不同的页面设置）的文档，一个宏将模板 (dotx) 附加到活动文档。我想做的是使用宏从附加模板中获取页边距值并将它们应用于活动文档。我不知道如何让它工作，或者是否可能。

非常欢迎任何建议。谢谢

Answer 1

试试这个...

Sub TemplateMargin()
Dim doc As Word.Document, tDoc As Word.Document
Set doc = ActiveDocument
Set tDoc = ActiveDocument.attachedTemplate.OpenAsDocument
With doc.PageSetup
    .TopMargin = tDoc.PageSetup.TopMargin
    .BottomMargin = tDoc.PageSetup.BottomMargin
    .LeftMargin = tDoc.PageSetup.LeftMargin
    .RightMargin = tDoc.PageSetup.RightMargin
End With
tDoc.Close wdDoNotSaveChanges
End Sub

是否可以使用 Word VBA 从 Word 2013 中的附加模板中检索页边距定义？

Is it possible to retrieve page margin definitions from an attached template in Word 2013 using Word VBA?

vba

ms-word

word-template