好烦，懂得word打印的高手请来指点一下，

Question

C:\Program Files\Borland\Delphi5\Demos\Activex\Oleauto\SrvComp\Word

Answer 1

使用书签
如何在Word文档的指定位置插入特定数据（如数据表字段值  ）
uses
    comobj,  word97;
procedure  TForm1.InsertWordBtnClick(Sender:  TObject);
var
  WordHandle, DocHandle: OleVariant;
  BookMarkName: string;
begin
  try
    WordHandle  :=  CreateOleObject('Word.Application');
  except
  end;
  WordHandle.Visible  :=  True;
 DocHandle := WordHandle.Documents.Add(Template := 'C:\Aaa.dot', NewTemplate := False);  //事先建好的文档模板
    try
        BookMark_Name  :=  '1';//事先在要插入的地方标上书签book1
        DocHandle.Application.Selection.goto(What:= wdGoToBook, Name := BookMarkName);
        DocHandle.Application.Selection.Text  :=  '这是替换1的文字';
        BookMarkName  :=  '2';
        DocHandle.Application.Selection.goto(What  :=  wdGoToBook, Name :=  BookMarkName);
  DocHandle.Application.Selection.Text  :=  '这是替换2的文字';
    except
    end;
 //另存文件
 DocHandle.SaveAs(FileName  :=  'c:\liuziran.doc',  FileFormat  :=  wdFormatDocument,  AddToRecentFiles  :=  False);
end;

Answer 2

去这儿看看吧：
http://www.codelphi.com/channel/hjwz/read.asp?ano=794要先申请成为会员的。

Answer 3

 我使用的方法是查找替换！
在要插入数据的地方先作好标记——必须保证标记的唯一性
然后通过_Doc.Range.Find.Execute方法，把要插入的值替换进查找到的地方
至于查找替换的方法和参数，你可以使用Word的宏录制的方法得到！