Autofit multiple tables to window
I had to do exactly this just last week --
Sub Macro1()
'
Dim pT As Word.Table
For Each pT In ActiveDocument.Tables
pT.PreferredWidth = MillimetersToPoints(170)
Next
MsgBox "done"
End Sub
In my case I needed all the tables to be 170mm wide -- insert your own value
as needed.
"Stacey" wrote in message
...
I exported a number of tables from another program into my Word document.
Now
I need to format all these tables (about 50 pages worth) so that they fit
across the width of my page. How do I "autofit to window" multiple tables
at
the same time?
|