此功能是為了要找到Word中的"AAA00001"的字串 但執行時發生錯誤，出現以下訊息 Project test.exe raised exception class EOleException with with message '虛設常式收到損壞的資料' Process stopped. Use Step or Run to continue. 程式碼如下: FindText:='AAA00001'; MatchCase:=False; MatchWholeWord:=True; MatchWildcards:=False; MatchSoundsLike:=False; MatchAllWordForms:=False; DocForward:=False; Wrap:= wdFindContinue; Format:=True; ReplaceWith:=''; Replace:=wdReplaceNone; MatchKashida:=False; MatchDiacritics:=False; MatchAlefHamza:=False; MatchControl:=False; Word.Selection.Find.Execute(FindText,MatchCase,MatchWholeWord,MatchWildcards, <== 執行發生錯誤 MatchSoundsLike,MatchAllWordForms,DocForward, Wrap,Format,ReplaceWith,Replace,MatchKashida, MatchDiacritics,MatchAlefHamza,MatchControl);

var
  WordApp, WordDoc: Variant;
begin
  WordApp := CreateOleObject('Word.Application');
  WordApp.Visible := true;      WordDoc := WordApp.Documents.Open('C:\test.doc');      WordApp.Selection.Find.ClearFormatting;      WordApp.Selection.Find.Text := 'AAA00001';
  WordApp.Selection.Find.Replacement.Text := '';
  WordApp.Selection.Find.Forward := true;
  WordApp.Selection.Find.Wrap := wdFindContinue;
  WordApp.Selection.Find.Format := false;
  WordApp.Selection.Find.MatchCase := false;
  WordApp.Selection.Find.MatchWholeWord := false;
  WordApp.Selection.Find.MatchByte := true;
  WordApp.Selection.Find.MatchWildcards := false;
  WordApp.Selection.Find.MatchSoundsLike := false;
  WordApp.Selection.Find.MatchAllWordForms := false;      WordApp.Selection.Find.Execute;
end;