Dim i As Long
With ActiveDocument
For i = 1 To .Tables.Count
.Tables(i).Rows(1).Select
Selection.Rows(1).HeadingFormat = wdToggle
Next i
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"CWHelp" wrote in message
...
Anyone know where I can find a Macro for Word that would fix all of my 500
tables so that they all repeat the header? Or do you know what the class
or
any of the other syntax would be to create one?