Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wordversion bei Exportmakro

Forumthread: Wordversion bei Exportmakro

Wordversion bei Exportmakro
27.06.2006 16:56:46
Helen
Hallo
ich habe ein Makro geschrieben, dass es mir ermöglicht, gewisse Zellen ins Word zu exportieren. Unten ist der Makrocode. Bei Excel- und Wordversionen ab 2003 funktioniert es wunderbar, nicht aber bei älteren Versionen. Wie muss ich das Makro ändern, dass es auch für Versionen ab 2000 funktioniert (Word und Excel).
Besten Dank im Voraus
Helen

Private Sub cmdWordExport_Click()
Dim WordObj As Object
Dim WordDoc As Object
Sheets("Zusammenfassung").Activate
Range("B2:J81").Copy
On Error Resume Next
Set WordObj = GetObject(, "word.application.11")       '11 steht für die Version
If Err.Number = 429 Then
Set WordObj = CreateObject("word.application.11")
Err.Number = 0
End If
WordObj.Visible = True
Set WordDoc = WordObj.Documents.Add
WordObj.Selection.PasteSpecial link:=True, DataType:=wdPasteOLEObject
Application.CutCopyMode = False
Set WordObj = Nothing
Set WordDoc = Nothing
End Sub

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wordversion bei Exportmakro
27.06.2006 17:41:55
Dieter
Hi,
.11 weglassen!
mfg Dieter
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige