ich benötige bei folgendem Fall eure Hilfe:
https://www.herber.de/bbs/user/151061.xlsm
Ich möchte gerne den Inhalt einer Zelle einer Excel-Datei, welche der Nutzer auswählt, in eine bestimmte Textmarke einer Word-Vorlage einfügen, ohne dass die Textmarke dabei gelöscht wird. Denn zu der übergebene Inhalt, welcher in die Textmarke eingefügt wird, kommt an mehreren Stelln im Word-Doc vor. In der Word-Vorlage habe ich deshalb Felder, welche die Textmarke referenzieren eingefügt.
Beim Versuch, die Word-Datei der Funktion zu übergeben, erhalte ich den Fehler "Typen unverträglich".
hier der Code (Fett markiert, wo der Fehler auftritt):
Sub ExportToWord()
Dim wordapp As New Word.Application
Dim doc As Word.Document
Dim filepathRM As String
Dim wbRM As Workbook
Dim sw_name As String
Const StartDrive = "M:"
Const StartDir = "\"
ChDrive StartDrive
ChDir StartDir
'RM auswählen
filepathRM = Application.GetOpenFilename("Excel-Dokumente, *.xlsx; *.xlx", , "Bitte Risikomanagement-Datei auswählen")
If filepathRM = "" Or False Then
Exit Sub
Else
Set wbRM = Workbooks.Open(filepathRM)
End If
'Word im Vordergrund initialisieren
Set wordapp = CreateObject("Word.Application")
Set doc = wordapp.Documents.Open("Word-Vorlage Pfad")
With wordapp
.Visible = True
End With
'word datei mit Excel Inhalt befüllen
sw_name = wbRM.Sheets("Tabelle1").Cells(4, 2).Value
'doc.Bookmarks("sw_name").Range.Text = sw_name --> Bookmark in Word wird entfernt, Verweise funktionieren nicht mehr
UpdateBookmark doc, "sw_name", sw_name
'Word-Datei abspeichern
ActiveDocument.SaveAs2 ThisWorkbook.Path & "\Validation Plan " & sw_name & ".docx"
End Sub
Public Function UpdateBookmark(wdoc As Document, BookmarkToUpdate As String, TextToUse As String)
Dim BMRange As Range
Set BMRange = wdoc.Bookmarks(BookmarkToUpdate).Range
BMRange.Text = TextToUse
wdoc.Bookmarks.Add BookmarkToUpdate, BMRange
End Function
Ich würde mich über eure Hilfe freuen!VG