Excel / VBA / Replace

excel Gast #4895764
Lesenswert?
• ▲
▼ 
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
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden
Sascha W. #4895821
Lesenswert?
• ▲
▼ 
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
Antwort Zitieren Bearbeiten Löschen Beitrag melden
excel Gast #4895838
Lesenswert?
• ▲
▼ 
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 ;-)
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Thread beobachten

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

Bestehender Account

oder

Mit Google-Account einloggen

Noch kein Account?

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren