Herbers Excel-Forum - das Archiv
Kopieren in Excel, einfügen in Word
Betrifft: Kopieren in Excel, einfügen in Word
von: Andreas
Geschrieben am: 14.03.2005 10:06:04
Hallo, guten Tag,
ist es möglich über ein Makro einen in Excel markierten
Tabellenbereich in Word als "Unformatierten Text" einzufügen.
Schiane Griaß
Andreas
Betrifft: AW: Kopieren in Excel, einfügen in Word
von: Domke, Frank
Geschrieben am: 14.03.2005 11:39:57
Hallo Andreas,
folgende Lösung sollte Dir helfen.
Viel Erfolg
Frank.
Sub KopiereSelection()
Dim rg As Range
Set rg = Application.Selection
If rg Is Nothing Then
MsgBox "..."
Exit Sub
End If
rg.Copy
Set rg = Nothing
Dim oApp As Word.Application
Set oApp = GetApplication("Word.Application")
If oApp Is Nothing Then
MsgBox "..."
Exit Sub
End If
Dim oDoc As Word.Document
Set oDoc = oApp.Documents.Add
oApp.Selection.PasteAndFormat wdFormatPlainText
Set oDoc = Nothing
Set oApp = = Nothing
End Sub
Function GetApplication(ByVal AppClass As String) As Object
Const vbErr_AppNotRun = 429
On Error Resume Next
Set GetApplication = GetObject(Class:=AppClass)
If Err.Number = vbErr_AppNotRun _
Then Set GetApplication = CreateObject(AppClass)
On Error GoTo 0
End Function
Betrifft: Danke
von: Andreas
Geschrieben am: 14.03.2005 14:48:42
Vielen vielen Dank für die Mühen,
ich werds versuchen.
MfG
Andreas
Betrifft: Fehler beim Kompilieren...
von: Andreas
Geschrieben am: 14.03.2005 15:03:11
Hallo, es gibt doch ein Problem:
Beim Starten des Makros kommt in der Zeile "Dim oApp As Word.Application"
die Meldung "Benutzerdefinierter Typ nicht definiert".
Was kann ich tun?
Schöne Grüße
Andreas
Betrifft: AW: Fehler beim Kompilieren...
von: Domke, Frank
Geschrieben am: 14.03.2005 15:33:40
Hallo Andreas,
über Extras/Verweise einen Verweis zu Deinem Word aktivieren!
Gruß
Frank.
Betrifft: Danke jetzt läufts...
von: Andreas
Geschrieben am: 14.03.2005 15:55:13
Merci
Andreas