Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

In Word Dokument Zeile markieren

Forumthread: In Word Dokument Zeile markieren

In Word Dokument Zeile markieren
29.04.2016 13:26:15
Oisse
Hallo Zusammen,
aus der Exceltabelle starte ich ein Worddokument und füge dort in einer Textmarke die Daten aus Excel ein.
Dadurch entsteht dann ja in Word eine Tabelle.
Nun möchte ich, dass bei dieser Textmarke dann in Word diese Zeile (also die erste Zeile) als "Überschriften wiederholen" gesetzt wird, damit sie auf den nächsten Seiten als Überschrift der Tabelle erscheint.
Ich hoffe ich konnte mich einigermaßen verständlich ausdrücken.
Ich habe den Macrorecorder gestartet in Word und folgende Zeile habe ich erhalten:

Selection.Rows.HeadingFormat = wdToggle

Ich habe jetzt in Excel das so gemacht:
If WordObj.ActiveDocument.Bookmarks.Exists("Angebot") Then
WordObj.ActiveDocument.Bookmarks("Angebot").Range.Paste
WordObj.ActiveDocument.Bookmarks("Angebot").Activate.Rows.HeadingFormat = wdToggle
Else
MsgBox "Die Textmarke MarkeAngebot ist nicht vorhanden"
End If

Aber ich krieg das nicht hin, dass er mir diese Zeile auf jeder neuen Seite als Überschrift der Tabelle macht.
Kann jemand helfen?

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: In Word Dokument Zeile markieren
29.04.2016 13:55:27
sam
Hallo,
das sollte klappen

wrd.ActiveDocument.GoTo -1, , , "Angebot"
Range("A1:C200").Copy  'Tabelle in Excel
wrd.Selection.Paste
wrd.Selection.Tables(1).Rows(1).HeadingFormat = True
lg
sam

AW: In Word Dokument Zeile markieren
29.04.2016 14:29:48
Oisse
Hallo Sam,
danke für deine Antwort.
Ich habe deinen Code ausprobiert.
Allerdings fügt mir das Makro die Tabelle am gleich am Anfang der ersten Seite ein und dann erst kommt der Text, der eigentlich am Anfang stehen muss (Adresse, Anrede usw.)
Wie muss ich das ändern.
Ich habe in Word mal per Makro getestet wenn der curser an der ersten Position der Seite steht, dann ist die Einfügemarke in Zeile 16.
Kannst du damit was anfangen?

Anzeige
AW: In Word Dokument Zeile markieren
29.04.2016 14:57:38
sam
Hi,
kleiner Fehler eingeschlichen: wrd.Selection.goto sollte es heißen.
Öffne mal das Word-Dokument
https://www.herber.de/bbs/user/105338.doc
und dann das Excel-Makro
https://www.herber.de/bbs/user/105339.xlsm
Sub test()
Dim wrd As Word.Application
Set wrd = GetObject(, "Word.Application")
wrd.Selection.GoTo what:=-1, Name:="Angebot"  '-1 = wdGoToBookmark
ActiveSheet.ListObjects("TblNamen").Range.Copy
wrd.Selection.Paste
Application.CutCopyMode = False
wrd.Selection.Tables(1).Rows(1).HeadingFormat = True
End Sub

das sollte die Lösung sein.
lg und schönes WE
Sam

Anzeige
AW: In Word Dokument Zeile markieren
29.04.2016 15:15:38
Oisse
Oberklasse!!!
Habe den Code entsprechend geändert und funktioniert tadellos.
Super.
Vielen Dank

AW: In Word Dokument Zeile markieren
29.04.2016 16:14:54
snb

Sub M_snb()
ActiveSheet.ListObjects("TblNamen").Range.Copy
with getobject("G:\OF\beispiel.docx")
.bookmarks("angebot").range.paste
.Tables(1).Rows(1).HeadingFormat = True
end with
End Sub

Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Zeilen in einem Word-Dokument markieren und Überschriften wiederholen


Schritt-für-Schritt-Anleitung

Um eine Zeile in einem Word-Dokument zu markieren und als Überschrift zu formatieren, kannst du ein Excel-Makro verwenden, das die Daten aus deiner Excel-Tabelle in das Word-Dokument überträgt. Hier sind die Schritte, die du befolgen solltest:

  1. Öffne Excel und Word: Stelle sicher, dass beide Anwendungen geöffnet sind.

  2. Erstelle das Makro in Excel: Öffne den VBA-Editor (ALT + F11) und füge ein neues Modul hinzu.

  3. Füge den folgenden Code ein:

    Sub ExportToWord()
       Dim wrd As Word.Application
       Set wrd = GetObject(, "Word.Application")
    
       ' Stelle sicher, dass das Word-Dokument geöffnet ist
       wrd.Documents.Open "G:\OF\beispiel.docx"
    
       ' Kopiere die Tabelle aus Excel
       ActiveSheet.ListObjects("TblNamen").Range.Copy
    
       ' Gehe zur Textmarke "Angebot" und füge die Tabelle ein
       With wrd
           .ActiveDocument.Bookmarks("Angebot").Range.Paste
           .ActiveDocument.Tables(1).Rows(1).HeadingFormat = True
       End With
    
       Application.CutCopyMode = False
    End Sub
  4. Führe das Makro aus: Drücke F5, um das Makro auszuführen. Die Tabelle wird an der Textmarke "Angebot" in deinem Word-Dokument eingefügt, und die erste Zeile wird als Überschrift formatiert.


Häufige Fehler und Lösungen

  • Fehler: "Die Textmarke MarkeAngebot ist nicht vorhanden"

    • Lösung: Überprüfe, ob die Textmarke "Angebot" in deinem Word-Dokument gesetzt ist. Gehe zu den Word-Optionen und füge die Textmarke hinzu, falls sie fehlt.
  • Fehler: Word-Tabelle Überschriften wiederholen funktioniert nicht

    • Lösung: Stelle sicher, dass du die Zeile korrekt als Überschrift markierst. Nutze den Code HeadingFormat = True, um sicherzustellen, dass die Überschrift auf jeder Seite wiederholt wird.

Alternative Methoden

Wenn du keine Makros verwenden möchtest, kannst du auch manuell die Tabelle in Word einfügen und die erste Zeile als Überschrift festlegen:

  1. Kopiere die Daten aus Excel.
  2. Füge sie in Word ein.
  3. Klicke mit der rechten Maustaste auf die Tabelle und wähle "Tabelleneigenschaften".
  4. Aktiviere die Option "Überschrift wiederholen".

Diese Methode ist weniger automatisiert, kann aber hilfreich sein, wenn du keine VBA-Kenntnisse hast.


Praktische Beispiele

Nehmen wir an, du hast eine Excel-Tabelle mit dem Namen "TblNamen", die die folgenden Daten enthält:

Name Alter Stadt
Max 30 Berlin
Lisa 25 Hamburg

Mit dem oben beschriebenen Makro wird diese Tabelle in dein Word-Dokument übertragen, und die erste Zeile wird als Überschrift markiert.


Tipps für Profis

  • Automatisiere den Export: Du kannst das Makro so anpassen, dass es bei jedem Öffnen der Excel-Datei automatisch ausgeführt wird.
  • Fehlerbehandlung einfügen: Füge Fehlerbehandlungsroutinen in dein Makro ein, um sicherzustellen, dass das Programm nicht abstürzt, wenn etwas schiefgeht.
  • Dynamische Textmarken nutzen: Verwende dynamische Textmarken, um die Einfügung der Daten flexibler zu gestalten.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass mein Makro in Excel funktioniert?
Stelle sicher, dass die Referenz zu "Microsoft Word Object Library" im VBA-Editor aktiviert ist.

2. Was mache ich, wenn die Tabelle nicht korrekt in Word eingefügt wird?
Überprüfe, ob die Range, die du kopierst, korrekt definiert ist, und stelle sicher, dass die Textmarke in Word existiert.

3. Kann ich mehrere Tabellen auf einmal einfügen?
Ja, du kannst das Makro so anpassen, dass es mehrere Tabellen nacheinander in Word einfügt, indem du die entsprechenden Range-Objekte definierst.

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