word und Excel
05.05.2015 20:53:29
Trev
ich habe folgenden Code
Möchte aber eine bestimmte Worddatei öffnen z.B. Rechnung.docx
Option Explicit
Sub Word_Kopie()
Dim wd As Object, xDok As Object
ThisWorkbook.Worksheets("Tabelle1").Range("D3:G22").Copy
Set wd = CreateObject("word.Application")
Set xDok = wd.Documents.Add
xDok.Range.Paste
wd.Visible = True
End Sub
Wie wäre dann der Code dafür?
Dankeschön und liebe Grüße!
Anzeige