Kopieren in Excel, einfügen in Word

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

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

Bild

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

Bild

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
Bild

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
Bild

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.
Bild

Betrifft: Danke jetzt läufts...
von: Andreas
Geschrieben am: 14.03.2005 15:55:13
Merci
Andreas
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Kopieren in Excel, einfügen in Word"