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

Question

我希望能够在word文档中将页码添加到标题中。

我已经找到了一些在visual中显示代码的链接，但是不管我尝试了什么，我总是会出错。它一直告诉我，“节”、“头”或“页脚”都不是受支持的自动化对象。

任何帮助都是很好的。谢谢。

链接：

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

如果可能的话，请如何正确地标注页码。

Answer 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