如何使用Delphi xe5将页码添加到word文档的标题

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

我发现了一些用VisualBasic显示代码的链接，但无论我做什么尝试，都会不断出现错误。它一直告诉我“节”或“页眉”或“页脚”不是受支持的自动化对象

任何帮助都会很好。多谢各位

链接：

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

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

---

如果可能的话，请告诉我如何正确地对齐页码。

使用

[]

而不是

（）

作为索引

//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而不是文档，我的错！谢谢，这很有效。请看我的问题。我忘记了一个小细节，如何对齐它。很抱歉。要将数字向右对齐，只需将“Add（1）”更改为“Add（2）”2。这是wdAlignPageNumberRight中的值“我不断出错”没有多大帮助。请给出一个简短但完整的代码示例，以及逐字的错误消息。@davidheffernan答案已经给出了。我也不明白。不过还是要谢谢你，我给你一些建议。下次你问问题时，请尽量包括这些细节。