Office: (Office 365) Textblock/Zellbereich aus Tabellenblatt in Worddokument übergeben

Hallo zusammen,

mit der folgenden Codezeile ist es zumindest möglich den Inhalt einer Zelle von Excel in einem Worddokument an einer bestimmten Textmarke einzufügen.

Code:

Vorlage.Bookmarks("NEU").Range.Text = Worksheets("Basis").Range("A19")

Wie wäre es möglich auch einen ganzen Zellbereich einzufügen ?
Mit z.B. Range("A19:C25") funktioniert es leider nicht.

DANKE für Deine Antwort im Voraus.
Jens

 

Hi Jens,

versuche es mal auf diesem Weg:

Code:

Sub ExcelTabelleNachWordKopieren()
    Dim WordObj As Object
    Dim WordDoc As Object
    Range("A19:C25").Copy
    On Error Resume Next
    Set WordObj = GetObject(, "Word.Application.16") '<== Office-Version anpassen
    If Err.Number = 429 Then
    Set WordObj = CreateObject("Word.Application.16") '<== Office-Version anpassen
    Err.Number = 0
    End If
    On Error GoTo 0
    WordObj.Visible = True
    Set WordDoc = WordObj.Documents(1)
    WordDoc.bookmarks("Neu").Range.Paste
    Application.CutCopyMode = False
    Set WordObj = Nothing
    Set WordDoc = Nothing
End Sub

---

 

Hallo liebe Karin,

besten Dank, es hat prima funktioniert.
Ist es noch möglich dem Text beim Einfügen die Word Zeilen-Formatierung "Kein Leerraum" mitzugeben ?

 

Hi Jens,

da kann ich dir leider nicht weiterhelfen.

---