Hallo,
also der Hauptcode ist das hier
Delphi-Quellcode:
WordApp.Selection.Find.ClearFormatting;
WordApp.Selection.Find.Replacement.ClearFormatting;
WordApp.Selection.Find.Text:= SL_Search[iString];
WordApp.Selection.Find.Replacement.Text := SL_Replace[iString];
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.MatchWildcards := False;
WordApp.Selection.Find.MatchSoundsLike := False;
WordApp.Selection.Find.MatchAllWordForms := False;
if not WordApp.Selection.Find.Execute(Replace:= wdReplaceAll) then
begin
//iDummy := 1;
end;
Also mit einer Selection.
Wie würde es dann mit einer Range aussehen?
Laut dem hier dienen Ranges nur zum Suchen
https://msdn.microsoft.com/de-de/library/f1f367bx.aspx
Wobei hier mir Ranges versucht wurde, zu arbeiten wurde:
https://www.experts-exchange.com/que...th-Delphi.html
Und das sieht schon mal ganz gut aus.
http://rxkinetics.com/blog/?p=353