Word aus Excel
12.01.2004 14:56:13
hendrik
habe ein dringendes Problem. Ich versuche aus Excel heraus in Word eine Datei zu öffnen, eine Zeichenfolge zu suchen und zu ersetzen die Datei zu speichern und word zu schließen.
Leider komme ich bei dem Punkt suchen und ersetzen nicht weiter. Habe mir hier in Word ein Makro aufgezeichnet und dieses nach Excel VBA kopiert. Leider bringt er mir hier immer eine Fehlermeldung. Zur Einfachheit hier der Quellcode:
Sub Wordrufen()
Set wrdapp = CreateObject("Word.Application")
wrdapp.Visible = True
Const pfad = "C:\Temp\schrott.csv"
With wrdapp
.Documents.Open pfad
.Selection.Find.ClearFormatting
.Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "/"
.Replacement.Text = "."
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
.Selection.Find.Execute Replace:=wdReplaceAll
End With
End Sub
Wer kann mir helfen in Word durch Excel das "/" durch ein "." zu ersetzen?