在程序中如何制作Word文档的页眉和页脚？

Question

TNND，怎么会变成这样？？？？换行符都去掉了，太不好玩了！！！！！！！！！

Answer 1

use comobj,word97;
var
    S,Word,  Doc,  Table:  OleVariant;
begin
    word:=CreateOleObject('Word.Application');//start  word
    word.Visible:=false;    //set  visible
    Doc:=Word.Documents.Add;    //add  a  new    document
    Doc  :=  Word.ActiveDocument;
    doc.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader;
    word.Selection.TypeText('aa');
    doc.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument      ;
    doc.saveas('c:\a.doc');    //save
    doc.close;
    word.quit;
    word:=Unassigned;
end;