Herbers Excel-Forum - das Archiv

Kopieren in Excel, einfügen in Word

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
Excel-Beispiele zum Thema "Kopieren in Excel, einfügen in Word"
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren Formel bis zur letzten Zeile der Nebenspalte kopieren