vba - 是否可以使用 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