Question

我有一个将页脚从一个word文档复制到另一个word文档的宏 - 这很好用，但它不能保持定位完全相同 - 我需要一个页脚与mm相同的位置。任何人都可以帮助我修改下面的代码来实现这一目标吗？

var key = Object.keys(translations.messages)[2];
translations.messages[key] = "new message";

然后用实际代码替换FOOTER（这也将文档的名称添加到页脚中）

Sub UpdateDocuments()
    Application.ScreenUpdating = False
    Dim strFolder As String, strFile As String, strDocNm As String
    Dim wdDocSrc As Document, wdDocTgt As Document, HdFt As HeaderFooter
    Dim aStory As Range
    Dim aField As Field
    Dim oldFilename As String
    Dim bmRange As Range
    Dim Response As Integer
    Dim i As Long
    Dim l As Integer

Answer 1

我发现以下问题解决了这个问题：

wdDocTgt.PageSetup.FooterDistance = wdDocSrc.PageSetup.FooterDistance

将带有图像的页脚复制到另一个Word文档

1 个答案: