Hallo!
Vielleicht kann mir ja jemand weiterhelfen...
Ich möchte aus einer Excel Tabelle jede Zelle einer Spalte auslesen und den Zelleninhalt in einem Word-Text finden und darin dann vorkommende Leerzeichen mit einem gesicherten Leeerzeichen (Strg+Shift+Space) ersetzen.
Als steht z.B. in der Zelle in Excel "Nr. 1" soll dieser Inhalt im einem Wordtext gefunden werden und das Leerzeichen zwischen "Nr." und "1" durch eine gesichertes Leerzeichen ersetzt. werden.
Der Aufruf der Exel Tabelle klappt schon, siehe unten mein Listing, aber nicht das finden und umwandeln des Leerzeichens....
Vielleicht hat ja jemand eine Lösung dafür? - Danke!
Hier, was ich bisher gefunden habe:
Sub GesichertesLeerzeichen()
'
iWord As Long, Found As Boolean
Dim TmpStr As String
Set myRange = ActiveDocument.Range
' Aktuell 4. Spalte Zeile 2-4
Dim xlApp As Object ' Excel.Application
Dim SuchRange As Object, AktZelle As Object
Set xlApp = GetObject(, "Excel.Application")
Set SuchRange = xlApp.Range("D2:D4")
With SuchRange
For Each AktZelle In SuchRange
If Len(AktZelle & "") > 0 Then 'Eigentlich ""
ReDim Preserve AllWord(iWord)
AllWord(iWord) = AktZelle
MsgBox (AktZelle)
' Hier müsste das finden und ersetzen in Word sein, oder ????
iWord = iWord + 1
End If
Next
End With
End Sub
|