Help with Header/Footer Autosizing
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
"
|