VBA: Excel Bereiche kopieren und in Word einfügen

[snb]

Mal so:
Caveat: wenn die Datei 'invisible' gespeichert ist, wird sie auch 'invisible' sein beim öffnen.
Dann kannst du im Ribbon /View 'unhide' klicken.
Oder speichere die Datei so:

Code:

.windows(1).visible=true
.close -1

Code:

Private Sub cmdErstellen_Click()
 with getobject("C:\temp\Vorlage1.docx")
    if chk1 then
        thisworkbook.sheets("Tabelle1").Range("A1:B5").Copy
        .paragraphs.last.Range.PasteExcelTable 0,0,0
        .content.insertafter string(3,vbcr)
    end if
    If chk2 Then
        thisworkbook.sheets("Tabelle2").Range("A1:C4").Copy
        .paragraphs.last.Range.PasteExcelTable 0, 0, 0
        .content.insertafter string(3,vbcr)
    End If
    If chk3 Then
        thisworkbook.sheets("Tabelle3").Range("A1:J31").Copy
        .paragraphs.last.Range.PasteExcelTable 0, 0, 0
    End If
    .close -1
 End With
End Sub

[Rabe]

Hi Michael,

also bei mir passiert genau das was im Code von snb steht:

Das Sichtbarschalten von Word war nicht im 2 Code drin, sondern erst im 3.
Ich hatte mich bei der Rückfrage ja auf den zweiten Code bezogen.

[Zwergel]

Hi Ralf,

ich bezog mich auf deinen Post 9#, in dem du für mich zumindest auf den Post 8# Bezug nimmst mit dieser Anmerkung

PHP-Code:

aaah, ok, dann tut es also, ich erkenne es nur nicht, da Word nicht sichtbar ist. 


alles wird gut, Hauptsache der Code macht genau das was man möchte und nebenbei lernt man ja auch was dazu, denn die Beispiele von snb sind ja nun meist speziell in der Kürze,