在delphi中怎样动态确定word模板中的标号？

Question

再问一下：
     怎样控制word在文档答应后自动关闭，打印在word中进行；

Answer 1

首先你应该在word模板上作好书签，并取好书签名，关于这个你是一定要这么作的，似乎没有其他办法，呵呵。然后你在程序中去调用这个模板，将你想插入到模板的数据和书签联系起来，我的一个程序如下：
procedure Tjyk_dyForm.BitBtn1Click(Sender: TObject);
var
  WordHandle,  DocHandle:  OleVariant;
  BookMarkName:  string;
  Year, Month, Day: Word;
begin
 DecodeDate(datetimepicker1.Date, Year, Month, Day);
 try
    WordHandle  :=  CreateOleObject('Word.Application');
  except
    end;
   WordHandle.Visible  :=  True;
   DocHandle :=WordHandle.Documents.Add(Template:='C:\Documents and Settings\仪器设备借用卡.dot',NewTemplate:=False);
       //事先建好的文档模板
   try
     BookMarkName:='year';//事先在要插入的地方标上书签
     DocHandle.Application.Selection.goto(What:=wdGoToBook,Name:=BookMarkName);
     DocHandle.Application.Selection.Text:=IntToStr(year);
     BookMarkName:='month';
     DocHandle.Application.Selection.goto(What:=wdGoToBook,Name:=BookMarkName);
     DocHandle.Application.Selection.Text:=IntToStr(month);
     BookMarkName:='day';
     DocHandle.Application.Selection.goto(What:=wdGoToBook,Name:=BookMarkName);
     DocHandle.Application.Selection.Text:=IntToStr(day);
     BookMarkName:='name';
     DocHandle.Application.Selection.goto(What:=wdGoToBook,Name:=BookMarkName);
     DocHandle.Application.Selection.Text:=sqlyform.Edit1.Text;
     BookMarkName:='shuliang';
     DocHandle.Application.Selection.goto(What:=wdGoToBook,Name:=BookMarkName);
     DocHandle.Application.Selection.Text:=sqlyform.Edit2.Text;
     BookMarkName:='borrow_people';
     DocHandle.Application.Selection.goto(What:=wdGoToBook,Name:=BookMarkName);
     DocHandle.Application.Selection.Text:=sqlyform.Edit3.Text;
     BookMarkName:='handler';
     DocHandle.Application.Selection.goto(What:=wdGoToBook,Name:=BookMarkName);
     DocHandle.Application.Selection.Text:=sqlyform.Edit4.Text;
     jyk_dyform.Close;
  except
  end;
    DocHandle.SaveAs(FileName:='c:\aaa.doc',FileFormat:=wdFormatDocument,AddToRecentFiles:=False);
(FileName:=''+''''+edit1.text+''''+'',FileFormat:=wdFormatDocument,AddToRecentFiles:=False);
end;你可以参考一下，有问题我们一起来学习讨论

Answer 2

to caijf(嘻嘻哈哈) :
   你是怎样处理打印同种格式，不同内容的doc文档的（成员个人资料），是在多个TWordDocument 中单独打印，还是在一个TWordDocument中多页打印，后一种办法怎样做呢（因为你用的是word模板)？