Text Elemente per Kontrollkästchen an Word senden

[PetrolMaxxe]

Hab noch ein Problem entdeckt. Tausche im Modul1 diese Prozedur aus:

Code:

Sub AusgabeInWord()
    Dim Pfad As String, WdApp As Object, wdDok As Object, i As Long
    '*********************** Speicherpfad einstellen *******************************
    Pfad = "F:\problemstellung\Excel zu Word\Checkboxen Text nach word\Ausgabe.docx"                                         '*
    '*******************************************************************************
    With Tabelle1
        .Range("D1:D" & .Cells(Rows.Count, 4).End(xlUp).Row).Copy
    End With
   
    Set WdApp = CreateObject("Word.Application")
    Set wdDok = WdApp.Documents.Open(Filename:=Pfad, ReadOnly:=False)
    WdApp.Visible = True
    WdApp.Selection.PasteExcelTable False, False, False
    Set wdDok = Nothing
    Set WdApp = Nothing
    Application.CutCopyMode = False
    With Tabelle1
        For i = 8 To 1 Step -1
            .OLEObjects("CheckBox" & i).Object.Value = False
        Next i
    End With
End Sub