Word Textmarken von Excel Füllen
05.12.2019 13:54:22
Excel
ich habe ein Problem von einer Kollegin und weiß hier nicht weiter.
Es geht darum, dass aus Excel Daten in eine Word Vorlage übertragen werden. Hier werden bookmarks verwendet. So das funktioniert auch ohne Probleme. Nur erweitert sich die Bookmark nicht auf den eingefügten Text. Wenn ich nun mein UserForm öffne ist das Feld leer.
Im Word wird die Textmarke folgendermaßen aktualisiert.:
Dim BM As Bookmark
Dim rng As Range
If ActiveDocument.Bookmarks.Exists("ProjektNr") Then
Set BM = ActiveDocument.Bookmarks("ProjektNr")
Set rng = BM.Range
rng.Text = Me.TextBox1.Value
ActiveDocument.Bookmarks.Add Name:="ProjektNr", Range:=rng
End If
So nun habe ich versucht das Selbe in Excel umzusetzen, aber hier versagt der Code.
Dim BM As Bookmark
Dim rng As Range
Dim objWordApp As Object 'Word Anwendung
Dim objWordDoc As Object 'Word Dokument
'Word starten
Set objWordApp = CreateObject("Word.Application")
Set objWordDoc = objWordApp.Documents.Open( _
"DATEINAME") 'Hier ist ein internes Dokument verlinkt
objWordApp.Visible = True 'Word anzeigen
If ActiveDocument.Bookmarks.Exists("ProjektNr") Then
Set BM = objWordApp.ActiveDocument.Bookmarks("ProjektNr") 'Hier habe ich auch schon _
objWordDoc versucht und jegliche kombination
Set rng = BM.Range 'Hier kommt immer der Fehler
rng.Text = Worksheets("Master Data").Range("F18")
objWordApp.ActiveDocument.Bookmarks.Add Name:="ProjektNr", Range:=rng
End If
Viele Grüße
Daniel