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
also der Fehler muss hier stecken "AppWD.Selection.Find.Execute Replace:=wdReplaceall"
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
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 ;-)
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.