delphi控制WORD的问题

Question

我有一个界面 界面上有一个Image1，一个按钮和几个EDIT文本框 
我想当我按了按钮后能生成一个WORD文档，把Image1插到WORD文档的页眉上，然后把EDIT上的内容写到WORD上怎么实现；
begin
  WordApp:=CreateOleObject('Word.Application');   WordApp.Visible:=True;
  WordApp.documents.add();
  WordApp.Caption := ‘新建文档’;
  //在这里页眉和插入内容怎么控制呢？
end;
麻烦朋友帮我说下怎么插入页眉和内容。

Answer 1

uses comobj;procedure TForm1.Button1Click(Sender: TObject);
var
    vWordApp, vWnd, vSelect: Variant;
begin
    vWordApp := CreateOleObject('Word.Application');    vWordApp.Visible := True;
    vWordApp.documents.add();
    vWordApp.Caption := '新建文档';    vWnd := vWordApp.ActiveWindow;    // 切换为页眉视图
    vWnd.ActivePane.View.SeekView := 9; // wdSeekCurrentPageHeader
    // 输入页眉内容
    vWordApp.Selection.TypeText('页眉内容');    // 切换为页脚视图
    vWnd.ActivePane.View.SeekView := 10; // wdSeekCurrentPageFooter
    // 输入页脚内容
    vSelect := vWordApp.Selection;
    vSelect.TypeText('第');
    vSelect.Fields.Add(vSelect.Range, 33); // wdFieldPage
    vSelect.TypeText('页 共');
    vSelect.Fields.Add(vSelect.Range, 26); // wdFieldNumPages
    vSelect.TypeText('页');    // 切换为正常文本视图
    vWnd.ActivePane.View.SeekView := 0; // wdSeekMainDocument    // 后续代码
    // ...
end;

Answer 2

页眉搞定了 还有一个问题如果把EDIT和DBGrid1上的数据输入到刚刚新建的WORD文档呢 

Answer 3

文本字符串，直接用TypeText就可以，若是DBGrid表格之类，就麻烦一些，我就不给你写代码了，google一下。