Hallo Forum,
ich möchte ein Excel-Blatt (Tabelle1) komplett nach Word via Knopfdruck konvertieren. Gibt es hierfür evtl. ein Script, dass dies per Knopfdruck erledigt ?
Wäre dankbar für Vorschläge !
Vielen Dank !
Gruß
Stefan.
Hallo Stefan,
versuch's mal damit: Sub export_nach_word() Dim objWD As Object Set objWD = CreateObject("Word.Application") Do While IsObject(objWD) <> True Loop
Worksheets("Tabelle1").UsedRange.Copy With objWD
.Visible = True
.Documents.Add
.Selection.Paste
.Quit End With Set objWD = Nothing End Sub