View Single Post
  #9   Report Post  
Jezebel
 
Posts: n/a
Default

The problem with the table is that it causes your footer to 'vibrate'. If
you use tabs, that won't happen.



"Kind writer/user/programmer" wrote in
message ...
Thank you Genine, Susan and Jezebel--

I'm the point man for designing the VBA to handle the

departmental/corporate
standards.
If Jezebel would help me appreciate why I should "dump the table idea" it
would improve my academic grasp of Word and VBA--surely there's a logical
technical explanation.
I'm enamoured of the table solution, using VBA code in two different

macros
to set and reset the autofit feature. I'm still in need of a reason that
I've been unsucessful in taming the jumpiness of the footer--the cells

seemt
to take on a life of their own.

Setting the table properties as shown below doesn't seem to address
anything. Should I set the table to be something less than 100% the width?

Is
that what Word is trying to "fix" ?

SetFooterTableWidth Macro
' Set footer table to span margins, then reset to not auomatically reize.

ActiveWindow.ActivePane.View.NextHeaderFooter
Selection.Tables(1).Select
Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
Selection.Tables(1).Select
With Selection.Tables(1)
.TopPadding = InchesToPoints(0)
.BottomPadding = InchesToPoints(0)
.LeftPadding = InchesToPoints(0.08)
.RightPadding = InchesToPoints(0.08)
.Spacing = 0
.AllowPageBreaks = True
.AllowAutoFit = False
End With
With Selection.Cells(1)
.BottomPadding = InchesToPoints(0)
.FitText = False
End With
End Sub