Help with Header/Footer Autosizing

[Musab]

Hi peoples,

Just need a hand on the following code, it formats all tables within a doc to adjust their width to the preset width (in the case below, 17.03 cm's). However, this code does not auto size the header and footer. Can someone give a hand?

Note: I use Different First Page for the coverpage of my word docs. Thanks peoples

"
Sub ConsistensifyTables()

Dim t As Table

'Show No markup
With ActiveWindow.View.RevisionsFilter
.Markup = wdRevisionsMarkupNone
.View = wdRevisionsViewFinal
End With

For Each t In ActiveDocument.Tables
With t
With .Rows


.Alignment = wdAlignRowCenter
.LeftIndent = CentimetersToPoints(0)
End With

.AutoFitBehavior (wdAutoFitFixed)
.PreferredWidthType = wdPreferredWidthPoints
.PreferredWidth = CentimetersToPoints(17.03)
End With
Next t

End Sub
"