請教一下各位先進 若想在WORD的表格中插入某字串 AAA 其語法是 WordDocument1.Tables.Item(i).Cell(j,k).Range.Text=AAA 但若是WORD的表格中已經有AAA這個字串 不知是否有辦法知道 AAA 在WORD中位置?? 即知道i,j,k的值 謝謝囉

您好: 提供以下連結給您參考. http://delphi.ktop.com.tw/topic.php?topic_id=22330 這個有source檔案 http://delphi.ktop.com.tw/topic.php?topic_id=22331 http://delphi.ktop.com.tw/topic.php?topic_id=22332 http://delphi.ktop.com.tw/topic.php?topic_id=22702 http://delphi.ktop.com.tw/topic.php?topic_id=22703 http://delphi.ktop.com.tw/topic.php?topic_id=25423 http://delphi.ktop.com.tw/topic.php?topic_id=25555    您可以看一下他有一段是尋找字串

procedure TForm1.Button13Click(Sender: TObject);
var _Text,_MatchCase,_MatchWholeWord,_MatchWildcards,_MatchSoundsLike,
    _MatchAllWordForms,_Forward,_Wrap,_Format,_ReplaceWith,_Replace,
    _MatchKashida,_MatchDiacritics,_MatchAlefHamza,_MatchControl:OleVariant;
begin
   if not (Edit6.Text='') then
   begin
      WordApplication1.Selection.Find.ClearFormatting;
         _Text := Edit6.text;
         _MatchCase := False;
         _MatchWholeWord := False;
         _MatchWildcards := False;
         _MatchSoundsLike := False;
         _MatchAllWordForms:=EmptyParam;
         _Forward := True;
         _Wrap := wdFindContinue;
         _Format := False;
         if (RadioGroup2.ItemIndex=1) then
         begin
            _Replace:=wdReplaceAll;   //wdReplaceOne取代一個
            _ReplaceWith:=edit7.text;
         end else
         begin
            _Replace:=wdReplaceNone;
            _ReplaceWith:='';
         end;
         _MatchKashida:=EmptyParam;
         _MatchDiacritics:=EmptyParam;
         _MatchAlefHamza:=EmptyParam;
         _MatchControl:=EmptyParam;
      WordApplication1.Selection.Find.Execute(_Text,_MatchCase,_MatchWholeWord,
         _MatchWildcards,_MatchSoundsLike,_MatchAllWordForms,_Forward,_Wrap,
         _Format,_ReplaceWith,_Replace,_MatchKashida,_MatchDiacritics,
         _MatchAlefHamza,_MatchControl);
   end;
end;

記得要將他的GroupBox6.Enabled設為true才能用. 至於尋找到以後要怎麼取得他的x,y值,我就不曉得了,我是使用尋找完以後然後直接就做取代動作. 發表人 - supman 於 2005/06/23 11:55:35