delphi - 如何使用delphi xe5更改word中页码的字体

Question

我正在自动化word文档。仅从代码生成它们。

目前我正在每页的页眉中添加页码，但我想知道如何更改页码的字体名称以及字体大小。

任何帮助，将不胜感激。

请注意，wrddoc 是事件文档变量。

这是我创建页码的代码:wrdDoc.Sections[1].Headers[1].PageNumbers.Add(wdAlignPageNumberRight);
我尝试使用以下代码更改字体，但出现错误，“方法字体不是受支持的自动化对象”:

wrdDoc.Sections[1].Headers[1].PageNumbers.Font.name:='Times New Roman';
wrdDoc.Sections[1].Headers[1].PageNumbers.Font.Size:=12;

任何帮助将不胜感激，谢谢。

Answer 1

这个对我有用:

wrdDoc.Sections.First.Headers.Item(1).Range.Font.Name := 'Times New Roman';
wrdDoc.Sections.First.Headers.Item(1).Range.Font.Size:= 12;

德尔福 XE，Office 2010。