word und Excel

Bild

Betrifft: word und Excel
von: Trev
Geschrieben am: 05.05.2015 18:53:29

Hallo,
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!

Bild

Betrifft: AW: word und Excel
von: Nepumuk
Geschrieben am: 05.05.2015 19:05:53
Hallo,
na so:

Set xDok = wd.Documents.Open "D:\Ordner\Rechnung.docx"

Gruß
Nepumuk

Bild

Betrifft: Nachtrag
von: Nepumuk
Geschrieben am: 05.05.2015 19:07:00
Die Klammern fehlen, also:
Set xDok = wd.Documents.Open("D:\Ordner\Rechnung.docx")

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Sverweis() und doppelte Werte"