Verknüpfung Excel und Word
06.02.2005 18:01:24
Christoph
mein Problem: Ich habe Tabstopp getrennte Textfiles mit Zahlenreihen, die nach englischem Muster statt eines Kommas einen Punkt haben (also 3.58e03 statt 3,58e03). Nachdem Excel mir solchen Zahlen nicht zuverlässig umwandeln kann, soll dies in Word geschehen. Dort funktioniert es mit Ersetzen alle "." durch ",".
Dieser Befehl soll von Excel aus ausgeführt werden, da in einer Tabelle hinterlegt ist, in welchen Dateien dieser Ersetzungsvorgang ausgeführt werden soll.
Hier der Code dazu:
Dim sFolder As String
Dim appWord As Object
Dim wFile As String
Sub Aufmachen_01()
wFile = Range("E2").Value & sFolder & Range("E4") & ".tab"
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
appWord.Documents.Open wFile
appWord.Selection.Find.ClearFormatting
appWord.Selection.Find.Replacement.ClearFormatting
With appWord
With .Selection.Find
.Text = "."
.Replacement.Text = ","
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
appWord.Selection.Find.Execute Replace:=wdReplaceAll
End With
appWord.ActiveDocument.Save
appWord.ActiveDocument.Close
appWord.Quit
Set appWord = Nothing
End Sub
Nun zum Fehler: Es werden die richtigen Dateien geöffnet (und später auch gespeichert), aber der Ersetzungsvorgang wird nicht ausgeführt. Im sichtbaren Modus beginnt der Ersetzungsvorgang, der Cursor sucht aber nur den ersten Punkt und Schluss.
Ich bitte um Hilfe.
Gruß, Christoph