如何使用delphi xe5更改单词中页码的字体

Question

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

目前我在每个页面的标题中添加了一个页码，但我想知道如何更改页码的字体名称以及字体大小。

任何帮助都将不胜感激。

请注意，wrddoc是活动文档变量。

这是我创建页码的代码： wrdDoc.Sections[1].Headers[1].PageNumbers.Add(wdAlignPageNumberRight);

我尝试使用以下代码更改字体，但是我收到错误，＆＃34;方法字体不是受支持的自动化对象＆＃34;：

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。