Word mit OLE-Automation steuern

[grf-irn]

Kleine hoffentlich einfache Frage. Ich habe Word über OLE gestartet und
möchte nun gern den varianlen(###Pat&) durch text aus meine Programme ersetzen mit deise Funktion:

Delphi-Quellcode:

function FindenUndInsert(FindText, ReplacementText : string ) : boolean;
const wdReplaceAll = 2;
    begin
         WordApp.Selection.Find.Text := FindText;

         WordApp.Selection.Replacement.Text := ReplacementText;

         FindenUndInsert := WordApp.Selection.Find.Execute(Replace := wdReplaceAll);

    end; 


procedure TfrmDocument.BitBtn12Click(Sender: TObject);

    Function CreateWord:boolean;
    begin
         CreateWord:=true;
         try
         W:=CreateOleObject('Word.Application');
         except
         CreateWord:=false;
         end;
    End;

    Function AddDoc:boolean;
    Var Doc_:variant;
    begin
         AddDoc:=true;
         try

         Doc_:=W.Documents.Add(ApplicationDir + BriefeDir + 'Standardtumorbrief.dot');
         //Doc_.Add;
         except
         AddDoc:=false;
         end;
    End;

begin
if CreateWord then
     begin
          If AddDoc then
          begin
               try

               FindenUndInsert('###Pat&', 'TEXT');

               except
                     On E:Exception do
                     begin
                         MyDialog.Msg('Fehler', E.Message + 'Fehler!', mb_ICONExclamation);
                     end;
               end;
          end;
       end;
end;

dann kommt FEHLER!!!!
"Metod 'Replacement' not supported by automation object".............. :-(((((((

Viele Dank im Voraus!

[edit=sakura] [delphi]/Tags Mfg, sakura[/edit]

[Jens Schumann]

Zitat:

Zitat von grf-irn

WordApp.Selection.Replacement.Text := ReplacementText;

Versuche es mal mit

Delphi-Quellcode:

WordApp.Selection.Find.Replacement.Text := ReplacementText

[edit]Innerhalb von 5 Minuten in VBAWD10.CHM gefunden :wink: [/edit]

[grf-irn]

Ich danke DIR!!!!!!!