请问个问题

Question

我用DELPHI做个按钮，这个按钮是调用外部程序WORD，WORD打开后要求自动设置好版面，版面的长宽要求DELPHI中控制，请问怎么写这个按钮事件

Answer 1

把设置版面的那段代码加到按钮的CLICK事件中呀

Answer 2

procedure tfrmConEdit.P_ShowModeText(iContractID:integer);
var
  Filename,PasswordDocument,PasswordTemplate,WritePasswordDocument,
  WritePasswordTemplate,Encoding,ConfirmConversions,ReadOnly,
  AddToRecentFiles,Revert,Visible,Format,ItemIndex:olevariant;begin
  {联接WORD}
  wordapplication1.connect;
  wordapplication1.visible := true;
  wordapplication1.caption := '柳钢物资管理系统--合同管理模块';
  {打开一个指定的WORD文件}
  FileName := 'd:/1.doc';
  ConfirmConversions:= False;
  ReadOnly:=False;
  AddToRecentFiles:=False;
  PasswordDocument:='';
  PasswordTemplate:='';
  Revert:=True;
  WritePasswordDocument:='';
  WritePasswordTemplate:='' ;
  Format:=wdOpenFormatDocument;
  Visible := true;
  Encoding := '';
  WordApplication1.Documents.Open(FileName,ConfirmConversions,ReadOnly,
  AddToRecentFiles, PasswordDocument, PasswordTemplate,Revert,
  WritePasswordDocument, WritePasswordTemplate, Format, Encoding, Visible);
  ItemIndex:= 1;
  WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
  WordApplication1.Options.CheckSpellingAsYouType := False;
  WordApplication1.Options.CheckGrammarAsYouType := False;
end;