Wordversion bei Exportmakro
27.06.2006 16:56:46
Helen
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