vba - 使用 VBA 和右对齐在 Word 文档中创建页脚

Question

我正在使用 VBA 创建一个 word 文档，我只需要编辑页眉/页脚。当我运行下面的 VBA 时，页脚居中……如何右对齐它？谢谢!

With ActiveDocument.Sections(1)
.Headers(wdHeaderFooterPrimary).range.Text = DocName
.Headers(wdHeaderFooterPrimary).range.Font.Name = "Arial"
.Headers(wdHeaderFooterPrimary).range.Font.size = 9
.Footers(wdHeaderFooterPrimary).range.Text = Format(Date, "Long Date") 
.Footers(wdHeaderFooterPrimary).range.Font.Name = "Arial"
.Footers(wdHeaderFooterPrimary).range.Font.size = 9
End With

Answer 1

格式化页脚内容的方法不止一种...

1. 最“正确”的方法是更改​​页脚样式的定义。这将包括问题中的代码直接应用的字体格式。

例如:

With ActiveDocument.Styles("Footer")
  .Font.Name = "Arial"
  .Font.Size = 9
  .ParagraphFormat.Alignment = wdAlignParagraphRight
End With

1. 如果要直接应用格式，可以直接应用右对齐:

基于问题中代码的示例

.Footers(wdHeaderFooterPrimary).range.ParagraphFormat.Alignment = wdAlignParagraphRight

1. 默认的页脚样式定义了三个制表位:左对齐、居中和右对齐。这允许内容在页面上对齐。为了使用它，将段落对齐从 (1) 或 (2) 中移除，并将两个 TAB 字符 (vbTab) 放在要写入页脚的字符串的开头:

基于问题中代码的示例

.Footers(wdHeaderFooterPrimary).range.Text = vbTab & vbTab & Format(Date, "Long Date")