调整 MS-Word 页脚高度？答案

【问题标题】：Adjusting MS-Word Footer Height?调整 MS-Word 页脚高度？
【发布时间】：2015-11-09 23:04:44
【问题描述】：

如何在 Word 2010 中使用 VBA 调整 Microsoft Word 的页脚高度？

我尝试录制宏，但没有记录高度信息。

【问题讨论】：

【解决方案1】：

这是PageSetup 对象的FooterDistance 属性。下面的示例将其设置为 1"：

With ActiveDocument.PageSetup
    .HeaderDistance = InchesToPoints(0.5)
    .FooterDistance = InchesToPoints(1)
End With

【讨论】：

感谢这两个答案..我会检查出来。

【解决方案2】：

可以读取或设置的属性是

activedocument.PageSetup.FooterDistance

单位是基于 72 DPI 的点，这意味着如果您将值设置为 72，那么您将获得 2.54 厘米或 1 英寸的页脚

希望有帮助

丹尼尔

【讨论】：

【解决方案3】：

我没有看到这个问题的答案，所以这是我的：

空页脚的高度是 BottomMargin 减去 FooterDistance。

边距大小决定了整个页脚的最大大小（包括 FooterDistance（空白））。

FooterDistance 将确定文本将被渲染到页面边缘的距离。（请注意，您的实际打印机边距会切掉太靠近边缘的东西）

注意：如果您的页脚中已有内容，并且页脚中的文本和/或图像的总高度较大 - Word 将使页脚更高以容纳所有内容。

下面的示例代码将调整您的页脚大小。

Dim sHght As Single

With ActiveDocument.PageSetup
  sHght = .BottomMargin     ' get existing margin in points
  .BottomMargin = sHght + 10    ' increase margin (size of space for footer)

  .FooterDistance = CentimetersToPoints(1)  ' set to suit your printer
End With

【讨论】：