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