使用Delphi 7控制Word 2000生成文档的方法

领测软件测试网

      TypeParagraph;
      TypeText(DBMemoR1.Text);
      TypeParagraph;
      TypeText(’记录二：  ’);
      TypeParagraph;
      TypeText(DBMemoR2.Text);
      TypeParagraph;
      TypeText(’记录三：  ’);
      TypeParagraph;
      TypeText(DBMemoR3.Text);
      TypeParagraph;
      TypeText(’备注：    ’);
      TypeParagraph;
      TypeText(DBMemoMemo.Text);
      TypeParagraph;
    end;
  //保存文档
  NoPrompt:=false;
  OriginalFormat:=wdOriginalDocumentFormat;
  WordApp.Documents.Save(NoPrompt,OriginalFormat);

  //关闭文档
  SaveChanges:=wdSaveChanges;
  OriginalFormat:=wdOriginalDocumentFormat;
  RouteDocument:=false;
  WordApp.Documents.Close(SaveChanges,OriginalFormat,RouteDocument);

文章来源于领测软件测试网 https://www.ltesting.net/