小编use*_*242的帖子

我正在建立一个delphi表单,在MS Word中添加一个新的word文档,等待用户插入文本和编辑文档,保存文件并退出MS Word,然后获取文件名和文件路径.

 WordApp := CreateOleObject('Word.Application');
 WordApp.Visible := True;
 Doc := WordApp.Documents.add();

等待用户插入文本并编辑文档并保存文件并退出表格MS Word THEN

Doc.Save;
DocName := Doc.Name;
Docpath := IncludeTrailingPathDelimiter(Doc.path) + DocName;

with ZipForge1 do
begin
  FileName := Zipfilename;
  OpenArchive;
  Options.StorePath := spNoPath;
  AddFiles(Docpath);
  CloseArchive;
end;