Ich möchte den Range("A1:B2") in ein neues Word-Dokument kopieren.
Das Öffnen von Word funktioniert bereits. Jedoch kann ich den Range noch nicht einfügen.
Wer kennt sich aus?
Danke für eure Hilfe
Sub testen()
Dim wordApp As Object
Set wordApp = CreateObject("Word.Application")
With wordApp
.Visible = True
.documents.Add
.WindowState = 1 '0 = Normal; 1 = Maximized; 2 = Minimized
.Activate
End With
ThisWorkbook.Worksheets(1).Range("A1:B2").Copy wordApp.documents.Range(0, 0)
End Sub