Forums Neueste Beiträge
 

viele Tabellen, Spaltenüberschriften automatisiert auf Folgeseiten wiederholen

08/09/2009 - 14:57 von Frieda Beyer | Report spam
Hallo NGler,

ich habe ein immer wieder neu zu erstellendes Dokument mit vielen
Tabellen. Diese Tabellen erstrecken sich zum Teil über mehrere Seiten.
Ich möchte, dass die Spaltenüberschriften immer auch auf den Folgeseiten
in den Tabellen wiederholt werden. Wie kann ich das mit VBA automatisieren?

Mein Versuch (nach Unterstützung in der Word-NG) wirft mir die
Fehlermeldung "Laufzeitfehler 424, Objekt erforderlich" aus:

Sub MeinMakro()

For Each myTable In activedocuments.Tables
Selection.HomeKey Unit:=wdRow
Selection.Extend
Selection.EndKey Unit:=wdRow, Extend:=True
Selection.Rows.HeadingFormat = wdToggle
Next myTable

End Sub

Wàre für eure Tipps dankbar!

Gruß, Frieda
 

Lesen sie die antworten

#1 Thomas Gahler
08/09/2009 - 20:59 | Warnen spam
Hallo Frieda


ich habe ein immer wieder neu zu erstellendes Dokument mit vielen
Tabellen. Diese Tabellen erstrecken sich zum Teil über mehrere Seiten.


Hast du dir schon einmal überlegt, ob du für das Dokument eine
Dokumentvorlage anlegen möchtest, dann musst du veilleicht viele Arbeiten
die du regelmàssig machst nicht mehr machen

Hast du dir schon einmal überlegt, die tabellen als AutoTexte bzw.
Schnellbausteine zu speichern, dann kannst du sàmtliche Formatierungen drin
verpacken.



Mein Versuch (nach Unterstützung in der Word-NG) wirft mir die
Fehlermeldung "Laufzeitfehler 424, Objekt erforderlich" aus:


Aufgezeichnete Makros müssen oft nachbearbeitet werden. Vorallem dann wenn
diese universeller eingesetzt werden müssen

Versuch es mal damit...

Sub Demo()
Dim tbl As Word.Table

For Each tbl In ActiveDocument.Tables
tbl.Rows(1).HeadingFormat = True
Next tbl
End Sub


Thomas Gahler
MVP für Word
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows Vista (SP1), Office 2007 (SP1)

Ähnliche fragen