delphi - 如何使用Delphi XE5更改Word中页码的字体

我正在自动处理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;

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

最佳答案

这个对我有用：

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

Delphi XE，Office 2010。