我有这样一个需求,就是DELPHI中调用WORD并打开一个模板,这模板中包含一些特定的字符(如#ID#,#NAME#),我想用SERVER中相应的字段替换这些字符,请大虾指教!!!急急!!!!

解决方案 »

  1.   

    var
       appWord: OLEVariant;
    begin
       appWord := CreateOleObject('Word.Application');   // 然后操作 Word 提供的命令即可解决, 替换命令应该用 Replace, 具体就不是很清楚,
       // 请买本 Word 的 VBA 手册.
       appWord.Documents.Open(DocFileName);
       //appWord.ActiveDocument.Replace(...);
       // ... ...   appWord.Quit;
    end;
      

  2.   

    startpos := 0;//起始位置
      findtext := strscr;//要替换的文本
      .........
      replacewith := strdst;//替换为的内容
      replace := true;
      worddocument1.range(startpos).find.execute(findtext, ....., replacewith, replace);
    其他参数省略,你可以用emptyparam来代替
    接分!!!!!!!!!