Question

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

我找到了一些在visual basic中显示代码的链接，但无论我尝试什么，我都会遇到错误。它一直在告诉我这些＆＃34;部分＆＃34;或＆＃34;标题＆＃34;或者＆＃34;页脚＆＃34;不是受支持的自动化对象。

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

链接：

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

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

1 个答案: