Mit nachfolgenden Makrozeilen wollte ich eine Befehlskette verknüpfen, leider ohne Erfolg. Kann mir jemand bitte helfen?
gewünschte Aktionen: 1.Spalte in xls markieren 2. Bereich kopieren 3. Worddokument öffnen 4. bei Textmarke Bereich einfügen
Code:
Sub ZuWord()
Columns("A:A").Select
Selection.Copy
Dim wApp As Word.Application
Dim wDoc As Word.Document
Set wApp = CreateObject("Word.Application")
Set wDoc = wApp.Documents.Open("m:\brief_a.doc")
wApp.ActiveDocument.Bookmarks("Liste").Select
wApp.Visible = True
Set wDoc = Nothing
Set wApp = Nothing
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Vielen, vielen Dank schon mal!
Gruss
Stefan