OLE in Office 365 (Word)

[hoika]

Hallo,

Zitat:

(In der Firma habe ich Office 2016 und zuhause Office 365 - ich habe noch keinen Unterschied bemerkt.)

Das ist doch mal eine Aussage.
Danke.

[hoika]

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

[p80286]

Ich hab leider kein Word mehr zur Hand darum ohne Gewähr, der letzte Link sieht ganz gut aus. Aber teste doch erst einmal die ganze Sache als Word-Macro und übernimm es dann nach Delphi.

Gruß
K-H