Portal | Forenübersicht | Neues Thema | Suchen | FAQ | Registrieren | Login
Forum > Excel & VBA > VBA.Beispiele > Excel und Word
Fragen zu den VBA-Beispielen aus dem Downloadbereich
In diesem Board befinden sich 110 Themen.
Die Beiträge bleiben immer erhalten.
Es wird moderiert von P@ulchen, RO_SCH.
Seite 1 Neues Thema letztes Thema nächstes Thema Dieses Board durchsuchen Diesen Thread zu meinen persönlichen Favoriten hinzufügen Abonnieren Ohne Zitat Antworten Druckt alle Antworten dieses Themas


 ist offline  Excel und Word Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
5.5.2015 - 19:29 Uhr
Posts



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!

 ist offline  : Excel und Word Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
10.5.2015 - 0:36 Uhr
Posts



Hi,

so ?
1
2
3
4
5
6
7
8
9
10
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.Open("C:\DeinDoc.docx")
 wd.Visible = True
 xDok.Range.Paste
 End Sub


Gruß Roland

Seite 1 nach oben

Forenauswahl:





Numaek's Forum V4.1.0 © 2005 by numaek
Originaltemplate by numaek