Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Text aus Word nach Excel kopieren

VBA Text aus Word nach Excel kopieren
21.01.2022 13:03:08
Joschi
Hallo Forum,
ich arbeite über Excel an einem Word-Dokument, welches aktuell geöffnet ist
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
With AppWD
.Documents.Open DocFile
...
End With
Wie kann ich jetzt den gesamten Inhalt von Word in eine Variable in Excel kopieren?
Gruß Joschi
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Text aus Word nach Excel kopieren
21.01.2022 15:14:58
JoWE
Hallo Joschi,
ungetestet:
.Selection.wholeStory 'alles auswählen
cTxt=.selection 'ausgewähltes in Variable speichern
Und dann in Tabelle einfügen,
z B. mit Cells(1,1)=cTxt
Gruß
Jochen
AW: VBA Text aus Word nach Excel kopieren
21.01.2022 16:24:03
Joschi
Hallo Jochen,
Danke für deinen Code-Vorschlag.
Der Code funktioniert grundsätzlich. Aber ich bekomme nur den Text und nicht die Formatierungen dazu.
Gruß Joschi
Anzeige
AW: VBA Text aus Word nach Excel kopieren
21.01.2022 16:38:36
JoWE
ja, Text ist halt Text.
Ob die Übergabe der wordspezifischen Formatierungen in eine Excel-Zelle überhaupt funktioniert bezweifle ich.
Lasse die Frage daher offen.
Gruß
Jochen
AW: VBA Text aus Word nach Excel kopieren
21.01.2022 16:46:56
Joschi
Hallo Jochen,
Die Daten sollen ja auch nicht in einer Excel-Tabelle gespeichert, sondern in verschiedenen Formaten gesichert werden.
Gruß Joschi
Anzeige
AW: VBA Text aus Word nach Excel kopieren
24.01.2022 11:40:39
Joschi
Zur Info:
Ich habe den Plan aufgegeben. Das Problem hat sich dadurch erledigt.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA: Text aus Word nach Excel kopieren


Schritt-für-Schritt-Anleitung

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Erstelle ein neues Modul: Rechtsklick auf "VBAProject (DeinWorkbookName)" > Einfügen > Modul.

  3. Füge den folgenden Code ein, um Word zu öffnen und den Text zu kopieren:

    Sub WordTextNachExcelKopieren()
       Dim AppWD As Object
       Dim cTxt As String
    
       ' Word als Objekt starten
       Set AppWD = CreateObject("Word.Application")
       AppWD.Visible = True
    
       ' Dokument öffnen
       AppWD.Documents.Open "C:\Pfad\zu\Deinem\Dokument.docx"
    
       ' Den gesamten Text auswählen und in Variable speichern
       AppWD.Selection.WholeStory
       cTxt = AppWD.Selection.Text
    
       ' Text in Excel einfügen
       Cells(1, 1) = cTxt
    
       ' Word schließen
       AppWD.Quit
       Set AppWD = Nothing
    End Sub
  4. Passe den Pfad zum Word-Dokument an und führe das Makro aus.


Häufige Fehler und Lösungen

  • Fehler: "Dokument konnte nicht gefunden werden"
    Lösung: Stelle sicher, dass der angegebene Pfad zum Word-Dokument korrekt ist.

  • Fehler: Nur der Text wird kopiert, nicht die Formatierungen
    Lösung: In Excel werden die Formatierungen nicht direkt unterstützt. Du kannst den Text in Word formatieren und als Screenshot oder PDF speichern, wenn die Formatierung notwendig ist.


Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du den Text auch manuell kopieren:

  1. Öffne das Word-Dokument.
  2. Wähle den gesamten Text aus (STRG + A).
  3. Kopiere den Text (STRG + C).
  4. Wechsle zu Excel und füge den Text in die gewünschte Zelle ein (STRG + V).

Diese Methode ist einfach, bietet jedoch keine Automatisierung.


Praktische Beispiele

  • Beispiel für das Einfügen von Word-Kommentaren: Wenn du Kommentare in Word hast, kannst du diese über VBA extrahieren. Hier ein einfacher Code-Schnipsel:

    Dim comment As Object
    For Each comment In AppWD.ActiveDocument.Comments
       Cells(i, 1).Value = comment.Range.Text
       i = i + 1
    Next comment
  • Szenario für die Verwendung von Formatierungen: Wenn du spezifische Formatierungen benötigst, könnte eine Lösung sein, den Inhalt als HTML zu exportieren und dann in Excel zu importieren.


Tipps für Profis

  • Nutze die Range-Objekte in VBA, um gezielt Zellen zu adressieren.
  • Experimentiere mit der PasteSpecial-Methode, um unterschiedliche Formate einzufügen.
  • Halte deine VBA-Projekte organisiert, indem du Kommentare im Code verwendest, um die Funktionsweise zu erklären.

FAQ: Häufige Fragen

1. Wie kann ich den Text aus einem bestimmten Abschnitt in Word kopieren?
Du kannst die Range-Objekte verwenden, um spezifische Textabschnitte auszuwählen.

2. Unterstützt Excel die Formatierungen von Word?
Leider unterstützt Excel keine komplexen Formatierungen von Word. Es ist besser, den Text ohne Formatierungen zu kopieren oder als Bild zu exportieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige