Excel Word Textmarke einfuegen

Forumthread: Excel Word Textmarke einfuegen

14.09.2017 10:29:44

Alex

Hallo,
ich komme gleich zu meinem Problem. Ich erstelle mit Hilfe eines Makros aus einem Excel ein neues Excel, das formatiert wird. Anschliessend sollen die formatierten Daten daraus in ein neues Word (mit Formular) an einer bestimmten Stelle mit Hilfe einer Textmarke eingefuegt werden. Dabei soll die Formatierung der im Excel hergestellten Daten beibehalten werden. Mein bisheriger Code sieht folgendermassen aus:
Sub BedZV_Rohdatenbearb()
'
Dim wdApp As Object
Dim wdoc As Object
If wdApp Is Nothing Then
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
wdApp.documents.Add "T:\Pfad\TEST.dotx"
Set wdoc = wdApp.ActiveDocument
wdApp.ActiveDocument.Bookmarks("TEST").Range("A1:B12").Text
Das Problem ist, dass ich nicht definieren kann, dass ein ganzer Bereich eingefuegt wird bzw. wie die Formatierung beibehalten werden kann
wdApp.ActiveDocument.Bookmarks("TEST").Range = ÂTESTÂ funktioniert

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Excel Word Textmarke einfuegen

16.09.2017 10:09:48

fcs

AW: Excel Word Textmarke einfuegen

16.09.2017 10:09:48

fcs

Hallo Alex,
du musst den Excel-Zellbereich kopieren und dann mit entsprechender Option im Word-Dokument einfügen.
Einfügen als RTF oder HTML generiert in Word eine Tabelle mit entsprechend formatierten Texten.
RTF übernimmt alle Basisformatierungen, HTML übernimmt auch farbige Schrift-Formatierungen von Teiltexten innerhalb der Zellen.
Gruß
Franz

Sub BedZV_Rohdatenbearb()
' Excelbereich an Word-Textmarke einfügen
Dim rngCopy As Excel.Range
Dim wdApp As Object
Dim wdoc As Object
Set rngCopy = ActiveSheet.Range("A1:B12")
If wdApp Is Nothing Then
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
End If
'    wdApp.documents.Add "T:\Pfad\TEST.dotx"
wdApp.documents.Add "C:\Users\Public\NeuTest\TEST.dotx"
Set wdoc = wdApp.ActiveDocument
wdoc.Bookmarks("TEST").Select
rngCopy.Copy
'Excel-Range als RTF (Rich-Text-Format) einfügen - Erzeugt in Word eine Tabelle
wdApp.Selection.PasteExcelTable Linkedtoexcel:=False, Wordformatting:=False, RTF:=True
'Excel-Range als HTML-Format einfügen - Erzeugt in Word eine Tabelle
'    wdApp.Selection.PasteExcelTable Linkedtoexcel:=False, Wordformatting:=False, RTF:=False
'Excel-Range als Grafik einfügen
'    wdApp.Selection.PasteSpecial Link:=False, DataType:=9, Placement:=0, _
DisplayAsIcon:=False _
'DataType: 9 = wdPasteEnhancedMetafile _
Placement: 0 = wdInLine
'Excel-Range als OLE-Object einfügen
'    wdApp.Selection.PasteSpecial Link:=False, DataType:=0, Placement:=0, _
DisplayAsIcon:=False _
'DataType: 0 = wdPasteOLEObject _
Placement: 0 = wdInLine
Application.CutCopyMode = False
wdApp.Activate
Set wdApp = Nothing
Set wdoc = Nothing
Set rngCopy = Nothing
End Sub

Infobox / Tutorial

Excel Textmarke in Word einfügen und formatieren

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um eine Excel Textmarke in ein Word-Dokument einzufügen, folge diesen Schritten:

Excel-Daten vorbereiten: Stelle sicher, dass der Bereich, den du einfügen möchtest, in Excel markiert ist. In diesem Beispiel verwenden wir den Bereich A1:B12.
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Neues Modul erstellen: Klicke mit der rechten Maustaste auf VBAProject (deine Datei), wähle Einfügen > Modul.

Makro einfügen: Füge den folgenden VBA-Code in das Modul ein:

Sub BedZV_Rohdatenbearb()
   Dim rngCopy As Excel.Range
   Dim wdApp As Object
   Dim wdoc As Object

   Set rngCopy = ActiveSheet.Range("A1:B12")
   If wdApp Is Nothing Then
       Set wdApp = CreateObject("Word.Application")
       wdApp.Visible = True
   End If
   wdApp.documents.Add "C:\Users\Public\NeuTest\TEST.dotx"
   Set wdoc = wdApp.ActiveDocument
   wdoc.Bookmarks("TEST").Select
   rngCopy.Copy
   wdApp.Selection.PasteExcelTable Linkedtoexcel:=False, Wordformatting:=False, RTF:=True
   Application.CutCopyMode = False
   wdApp.Activate
End Sub

Makro ausführen: Schließe den VBA-Editor und führe das Makro aus, um deine Daten in das Word-Dokument einzufügen.

Häufige Fehler und Lösungen

Fehler: "Das Objekt ist nicht definiert."
- Lösung: Stelle sicher, dass die Word-Anwendung korrekt gestartet ist und das richtige Dokument geöffnet wurde.
Fehler: Formatierung geht verloren.
- Lösung: Verwende beim Einfügen die Option RTF (Rich Text Format), um die Formatierungen beizubehalten.
Fehler: Textmarke wird nicht gefunden.
- Lösung: Stelle sicher, dass die Textmarke im Word-Dokument korrekt definiert ist. Du kannst die Textmarke mit Word Textmarke definieren im Word-Dokument hinzufügen.

Alternative Methoden

Es gibt verschiedene Möglichkeiten, Daten von Excel in Word zu integrieren:

Textmarken einfügen in Word: Du kannst auch manuell Textmarken in Word definieren und dann den Excel-Inhalt dort einfügen.
Direktes Kopieren: Kopiere einfach den Excel-Bereich und füge ihn direkt in das Word-Dokument ein. Achte darauf, die richtige Einfüge-Option zu wählen, um die Formatierung zu behalten.
OLE-Objekte: Füge den Excel-Bereich als OLE-Objekt ein, um eine interaktive Verbindung zwischen Excel und Word herzustellen.

Praktische Beispiele

Einfügen eines Diagramms: Um ein Excel-Diagramm in Word einzufügen, kopiere das Diagramm und verwende die PasteSpecial-Funktion, um es als OLE-Objekt einzufügen.
Textmarken anzeigen: Um alle verfügbaren Textmarken in deinem Word-Dokument anzuzeigen, kannst du die Textmarken anzeigen-Funktion im Word-Menü verwenden.

Tipps für Profis

Textmarke in Excel definieren: Du kannst auch Textmarken in Excel definieren, um den Zugriff auf bestimmte Daten zu erleichtern.
Automatisierung: Verwende VBA, um das gesamte Verfahren zu automatisieren, sodass deine Excel-Daten regelmäßig in Word aktualisiert werden.
Fehlerprotokollierung: Implementiere eine Fehlerprotokollierung in deinem VBA-Skript, um Probleme bei der Ausführung schnell zu identifizieren.

FAQ: Häufige Fragen

1. Wie füge ich eine Textmarke in Word ein? Um eine Textmarke in Word einzufügen, gehe zu Einfügen > Textmarke, gib einen Namen ein und klicke auf Hinzufügen.

2. Wie kann ich alle Textmarken in meinem Word-Dokument anzeigen? Du kannst alle Textmarken anzeigen, indem du im Word-Dokument auf Verweise > Textmarken klickst. Dort siehst du eine Liste aller definierten Textmarken.

Beliebteste Forumthreads (12 Monate)