Tabellenⁿberschrift mit VBA festlegen

In Word habe ich ein Makro zur Formatierung einer Tabelle geschrieben. Das Makro funktionierte mit Office 95 ohne Probleme. Seit ich Word 2000 einsetze, erscheint bei einem Seitenumbruch die Kopfzeile der Tabelle nicht auf jeder Seite. Auch die Formatierung ╗▄berschriftenzeile wiederholen½ bleibt ohne Wirkung. Was ist da los?

Der Fehler steckt nicht in Word 2000 sondern im Makro. Die ursprⁿngliche Version wΣhlt mit ╗Selection.Tables(1).Select½ die gesamte Tabelle und definiert diese mit der Zeile ╗Selection.Rows.HeadingFormat = True½ als ▄berschriftenzeile. Damit kommt Word 2000 nicht zurecht. Um den Fehler zu beheben, setzen Sie die Eigenschaft ╗HeadingFormat½ bei nur einer Tabellenzeile auf ╗True½. Diese k÷nnen Sie ⁿber einen Index in der Auslistung ╗Selection.Rows½ ansprechen. Um nur die erste Zeile als ▄berschrift zu definieren, mⁿssen Sie den VBA-Befehl ╗Selection.Rows(1). HeadingFormat = True½ nutzen. Das korrigierte Makro sieht dann so aus: Sub TabFormatLi5() Selection.Tables(1).Select Selection.Tables(1).? AutoFormat_ Format:=wdTableFormat? List5, _ ApplyBorders:=True, _ ApplyShading:=True, _ ApplyFont:=True, _ ApplyColor:=True, _ ApplyHeadingRows:=True, _ ApplyLastRow:=True, _ ApplyFirstColumn:=True, _ ApplyLastColumn:=False, _ AutoFit:=True Selection.Tables(1).Select Selection.Tables(1).Rows.? LeftIndent = CentimetersTo? Points(0) Selection.Tables(1).Pre? ferredWidth = 400 Selection.Rows.AllowBreak? AcrossPages = False Selection.Rows(1).Heading? Format = True Selection.MoveRight ? Unit:=wdCharacter, Count:=1 End Sub