Excel in Word
thomas3
ich habe folgendes Problem. Ich möchte eine Excel Tabelle in wine bestimmte Worddatei kopieren, dann ein PDF draus erstellen, das PDF abspeichern, Word schließen und zu Excel zurück kehren.
Bisher komme ich so weit. Aber beim Speichern des Bereiches in Word kommt bereits die erste Fehlermeldung.
Könnte mir jemand helfen ?
Herzlichen Dank schon einmal und einen schönen Sonntag
Thomas
Option Explicit
Sub word_open()
Dim oWord As Object
Dim Datei As String
Dim bereich As range
Dim ezeile As Integer
Dim lzeile As Integer
'Bereich festlegen
ezeile = Cells(26, 17).Value
lzeile = Cells(26, 19).Value
'Bereich kopieren
Set bereich = range(Cells(ezeile, 2), Cells(lzeile, 8))
bereich.Copy
'Word Datei definieren
Datei = Sheets("Artikelbezeichnung").Cells(43, 8).Value
'Word als Object starten
Set oWord = CreateObject("Word.Application")
'AppWD.Visible = True
oWord.documents.Open Datei
---> hier kommt die Fehlermeldung : oWord.bereich.Paste
'PDF erstellen
Set oWord = Nothing
End Sub