Question

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

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

Answer 1

它是FooterDistance对象的PageSetup属性。以下示例将其设置为1＆＃34;：

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

Answer 2

可以读取或设置的属性是

activedocument.PageSetup.FooterDistance

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

希望有所帮助

丹尼尔

Answer 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

调整MS-Word页脚高度？

3 个答案: