Hallo!
<pre><b>Source:</b>
var
name, bo, bo2, text, repllevariant;
begin
bo := true;
bo2 := false;
text:='TEST';
repl := 'OK';
datei := 'c:\test.doc';
wordapplication1.Documents.Open(name, emptyparam, emptyparam, emptyparam,
emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam,
emptyparam, bo);
showmessage('textbereich markieren');
wa1.Selection.Find.Execute();
</pre>
<b>Problem:</b>
Ich weiß nicht genau, wie die Parameter in der Funktion (wa1.Selection.Find.Execute(............))
angegeben werden müssen, damit jedes Wort('Test'), das sich in dem markierten Bereich befindet, durch das jeweilige Wort(hier: 'OK') ersetzt wird.
Oder gibt es eine elegeantere Lösung, zu diesem Problem?
Vielen Dank im voraus!
mfg,
Bora
<pre><b>Source:</b>
var
name, bo, bo2, text, repllevariant;
begin
bo := true;
bo2 := false;
text:='TEST';
repl := 'OK';
datei := 'c:\test.doc';
wordapplication1.Documents.Open(name, emptyparam, emptyparam, emptyparam,
emptyparam, emptyparam, emptyparam, emptyparam, emptyparam, emptyparam,
emptyparam, bo);
showmessage('textbereich markieren');
wa1.Selection.Find.Execute();
</pre>
<b>Problem:</b>
Ich weiß nicht genau, wie die Parameter in der Funktion (wa1.Selection.Find.Execute(............))
angegeben werden müssen, damit jedes Wort('Test'), das sich in dem markierten Bereich befindet, durch das jeweilige Wort(hier: 'OK') ersetzt wird.
Oder gibt es eine elegeantere Lösung, zu diesem Problem?
Vielen Dank im voraus!
mfg,
Bora
Comment