如何使用Delphi xe5将页码添加到word文档的页眉答案

【问题标题】：How to add page numbers to the header of a word document using Delphi xe5如何使用Delphi xe5将页码添加到word文档的页眉
【发布时间】：2014-05-21 02:38:30
【问题描述】：

我希望能够将 word 文档中的页码添加到页眉中。

我找到了一些在 Visual Basic 中显示代码的链接，但无论我尝试什么，我都会不断出错。它一直告诉我“部分”或“页眉”或“页脚”不是受支持的自动化对象。

任何帮助都会很棒。谢谢。

链接：

http://blogs.technet.com/b/heyscriptingguy/archive/2006/05/10/how-can-i-add-centered-page-numbers-to-the-footer-of-a-word-document.aspx

http://msdn.microsoft.com/en-us/library/office/ff194253(v=office.14).aspx

我尝试添加链接的代码但没有成功：

wrdDoc.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).PageNumbers.Add

如果可能，请如何正确对齐页码。

【问题讨论】：

“我不断收到错误”不是很有帮助。请给出一个简短但完整的代码示例和逐字错误消息。
@davidheffernan 答案已经给出。我也想不通。不过还是谢谢
我给你一般建议。下次您提出问题时，请尝试提供此类详细信息。

标签： delphi ms-word

【解决方案1】：

使用[] 代替() 作为索引

//Headers[wdHeaderFooterPrimary] = Headers[1]

//Add possible values:
//wdAlignPageNumberCenter = 1
//wdAlignPageNumberInside = 3
//wdAlignPageNumberLeft = 0
//wdAlignPageNumberOutside = 4
//wdAlignPageNumberRight =2

wrdDoc.Sections[1].Headers[1].PageNumbers.Add(1); //example with center alignment
wrdDoc.Sections[1].Headers[1].PageNumbers.Add(2); //example with right alignment

【讨论】：

如果我使用 activedocument 我得到一个错误“方法'activeDocument'不支持b自动化对象”？
我更正了答案，我认为 wrdDoc 是 WordApp 而不是文档，我的错！
谢谢它有效。请看我的问题。我忘记了 1 个小细节，如何对齐它。我很抱歉。
要将数字向右对齐，只需将“Add(2)”的“Add(1)”更改为 wdAlignPageNumberRight 2 的值