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

Question

我为Word 2013构建了一个加载项模板(dotm(，其中包含各种宏，用于自动执行活动文档上的重复和费力任务。它们是从用户窗体上的控件运行的。一切都很好，但有一件事我似乎做不到。

场景是我收到一个不基于特定模板的文档(例如，不同的页面设置(，一个宏将模板(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