我这有一个对当前页面的设置代码
var
mmm,nnn,aaa:OleVariant;
begin
mmm:=wdLine;
nnn:=1;
aaa:=wdFieldPage;
WordApp.ActiveWindow.ActivePane.View.SeekView :=wdSeekCurrentPageHeader ;
WordApp.Selection.Move(mmm,nnn);
WordApp.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;
WordApp.Selection.InsertAfter('第');
mmm:=wdCharacter;
WordApp.Selection.Move(mmm,nnn);
WordApp.Selection.Fields.Add(WordApp.Selection.Range,aaa,mm...[ 查看全文 ]