Hi, da bin ich wieder. Nun bin ich wieder einen guten Schritt weiter.
Problem: Ich habe geschlossene Textmarker in Word, dessen Inhalt über Excel gefüllt/ersetzt werden soll.
Ich habe folgenden Code:
Public Sub ReSetBookmark(ByVal doc As Object, ByVal TMName As String, ByVal TMInhalt As String)
'Recycling-Textmarke mit übernommenen Werten, geht für alle Textmarken
Dim bm As Bookmark
Dim rng As Range
If doc.Bookmarks.Exists(TMName) Then
Set bm = doc.Bookmarks(TMName)
Set rng = bm.Range
rng.Text = TMInhalt
doc.Bookmarks.Add Name:=TMName, Range:=rng
End If
Set rng = Nothing
Set bm = Nothing
End Sub
Der Code wurde im Netz mehrfach geposted.
Nur erhalte ich einen Fehler wegen Typenunverträglichkeit in dieser Zeile:
Set rng = bm.Range
wenn ich aber mit der Maus draufzeige, sehe ich dass der Inhalt dieser Range richtig angezeigt wird: " " (im Bereich der Textmarke ist nur ein Leerzeichen).
Ich verstehe einfach nicht, warum der Code nun stehen bleibt.
Kann bitte jemand helfen?
Dankeschön.