ich bin dabei ein Programm zu schreiben, dass ich Zelleninhalte (Text) in ein Worddokument übertragen lassen kann.
Hier mal der Code:
Public Sub Worddaten()
Dim strData As String
Dim objWord As Object
Application.DisplayAlerts = False 'Fehlermeldungen ausgeblendet
ZeileDOC = ZeileDOC - 1
Worksheets("Daten für Word").Range(Cells(1, 1), Cells(ZeileDOC, 2)).Select
strData = Selection ' "Typen unverträglich"
Set objWord = CreateObject("Word.Application")
objWord.documents.Open "Z:\Markus\Touch-Panel Verknüpft.docm"
objWord.Visible = True 'Word wird angezeigt
With objWord _
' Fügt die Daten in die Textmarke ein
If .ActiveDocument.Bookmarks.Exists("Exceldaten") Then
.ActiveDocument.Bookmarks("Exceldaten").Range.Text = strData
End If
End With
objWord.ActiveDocument.SaveAs "Z:\XY\Touchpanel" & Date & ".docm"
objWord.Quit
Set objWord = Nothing
Application.DisplayAlerts = True 'Fehlermeldungen eingeblenden
End Sub
In der Zeile "strData = Selection" spuckt´s mir ein Laufzeitfehler 13: Typen unverträglich aus. Was stimmt hier nicht? Evtl. Variablen Typ falsch?
Wie kann ich das Programm den noch so ändern, dass es mir nicht Tabellen mit Inhalt, sondern nur den Inhalt (im Tabellenformat) überträgt.
Wäre super, wenn mir jemand weiterhelfen könnte!!
besten Dank,
Knilch