盒子论坛 v2.1

我自己已解决部分问题,但还是不能达到目的,思路是:
用程序代码将数据库的内容复制到剪贴板上,然后word 里的查找方法中的查找内容为^g,替换内容为^c就可以替换了,我现在的问题是每次都只找到第一个图片,而不能查找到第二个后面的图片.
有兴趣的就试试吧!我想这也是解决报表制作比较有效,而最容易让用户接受的方式,如果全部通过了,我就将思路和程序都放到这儿,让大家一起分享!
  下面的代码就是想实现的内容.
  find_text := '^g';
  match_case := False;
  match_whole_word := True;
  match_wildcards := False;
  match_sounds_like := False;
  match_all_word_forms := False;
  forward := True;
  wrap := wdfindcontinue;
  format := False;
  replace_with := '^c';
  replace := True;

  WordDocument.Range.WholeStory;
  for i:=1 to 2 do
  begin
    if i<> 2 then
       replace := false
    else
       replace := true;
    WordDocument.Range.Find.Execute(
      find_text,
      match_case,
      match_whole_word,
      match_wildcards,
      match_sounds_like,
      match_all_word_forms,
      forward,
      wrap,
      format,
      replace_with,
      replace,
      match_kashida,
      match_diacritics,
      match_alefhamza,
      match_control );
  end;
----------------------------------------------
-

信息

登陆以后才能回复