[douglasgerlach]

I have the following macro and i cannot figure out why i cannot get this header to repeat on subsequent pages any thoughts?

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed

With Selection.Tables(1)
If .Style "Table Grid" Then
.Style = "Table Grid"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.Rows(1).HeadingFormat = True
End With

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
Selection.Font.Name = "Courier New"
Selection.Font.Size = 11
Selection.TypeText Text:="CHANGED P/N INFORMATION"

Selection.NextField


Selection.Tables(1).Columns(1).SetWidth ColumnWidth:=565, RulerStyle:= _
wdAdjustNone


Selection.MoveDown Unit:=wdLine, Count:=1



i have other macros where i can get it to repeat but with this one i cannot.
thanks