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"