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:

zusammenfalten · markieren

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]

Zitat von grf-irn:

WordApp.Selection.Replacement.Text := ReplacementText;

Versuche es mal mit WordApp.Selection.Find.Replacement.Text := ReplacementText [edit]Innerhalb von 5 Minuten in VBAWD10.CHM gefunden [/edit]

Ich danke DIR!!!!!!!