Excel / VBA / Replace

[excel (Gast)]

Hallo Zusammen,

ich möchte aus Excel einen Platzhalter in einer Worddatei ersetzen.
Das markieren klappt. Das ersetzen nicht.  Wo ist der Fehler ? :-/




Dim AppWD As Object
Set AppWD = CreateObject("Word.Application")
AppWD.Visible = True
AppWD.documents.Open ("C:\test.docx")
AppWD.Selection.Find.Text = "B1"
AppWD.Selection.Find.replacement.Text = "S2"
AppWD.Selection.Find.Execute Replace:=wdReplaceall

[excel (Gast)]

also der Fehler muss hier stecken "AppWD.Selection.Find.Execute 
Replace:=wdReplaceall"

[Sascha W. (sascha-w)]

excel schrieb:
> also der Fehler muss hier stecken "AppWD.Selection.Find.Execute
> Replace:=wdReplaceall"

Wo hast du die Zeile her? Aus dem Makrorecorder in Word wahrscheinlich.
Ich gehe mal davon aus das unter Excel die Globale (Word)Konstante 
wdReplaceall nicht definiert ist.
Ich weiß jetzt aber gerade nicht ob man da über das Application-Objekt 
rankommt, notfalls den numerischen Wert unter Word anzeigen lassen und 
einsetzen.


Sascha

[excel (Gast)]

Sascha W. schrieb:
> excel schrieb:
>> also der Fehler muss hier stecken "AppWD.Selection.Find.Execute
>> Replace:=wdReplaceall"
>
> Wo hast du die Zeile her? Aus dem Makrorecorder in Word wahrscheinlich.
> Ich gehe mal davon aus das unter Excel die Globale (Word)Konstante
> wdReplaceall nicht definiert ist.
> Ich weiß jetzt aber gerade nicht ob man da über das Application-Objekt
> rankommt, notfalls den numerischen Wert unter Word anzeigen lassen und
> einsetzen.
>
> Sascha

Danke hat geklappt ! is ne 2 ;-)