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;

Delphi XE、Office 2010。