Das mit dem Old habe ich mir auch schon gedacht und deshalb stundenlang mit Find.Execute experimentiert. Aber immer erhalte ich die Meldung "Das Stub erhielt falsche Daten". Nachfolgend mein Code, nur die letzten 4 Parameter sind zusätzlich bei Execute gegenüber ExecuteOld, das bis Word2000 funktioniert hat.
OleTrue := true;
OleFalse := false;
replaceall := wdReplaceAll;
wordwrap := wdFindContinue;
// ARange.Find.ExecuteOld(findtext,OleFalse,OleFalse,OleFalse,OleFalse,
// OleFalse,OleTrue,wordwrap,OleFalse,replacetext,replaceall);
ARange.Find.Execute(findtext,OleFalse,OleFalse,OleFalse,OleFalse,
OleFalse,OleTrue,wordwrap,OleFalse,replacetext,replaceall,
OleFalse,OleFalse,OleFalse,OleFalse);
Danke im vorraus,
Martin