View Single Post
 
Old 11-16-2017, 06:13 PM
Musab Musab is offline Windows 10 Office 2003
Novice
 
Join Date: Nov 2017
Posts: 5
Musab is on a distinguished road
Default 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
"
Reply With Quote