Von Excel nach word Kopieren
11.01.2006 15:08:27
werner
stehe gerade auf dem Schlauch und in der Recherche bin ich nach 20 durchgelesenen Treffern auch nicht schlauer geworden.
Ich will aus Excel einen Bereich als unformatierten Text in Word 97 kopieren, aber mit folgendem Code wird immer ein excel-Object eingefügt:
Sub test()
Dim Wordobj As Object
Dim Worddoc As Object
Range(ActiveCell, Cells(1)).Copy
Set Wordobj = GetObject(, "word.application.8")
If Err.Number = 429 Then
Set Wordobj = CreateObject("word.application.8")
Err.Number = 0
End If
Wordobj.Visible = True
Set Worddoc = Wordobj.documents.Add
Wordobj.Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
Application.CutCopyMode = False
Set Wordobj = Nothing
Set Worddoc = Nothing
End Sub
Für Hilfe bin ich dankbar!
grüße
Werner