如何使用delphi更改word中頁碼的字體xe5

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中