Table Formatting

[ubns]

I have kind of got the following code and ammended little bit. Here is a code:


' resize tables


Sub TablesOptimize()
Dim myTable As Table
For Each myTable In ActiveDocument.Tables
myTable.AutoFitBehavior (wdAutoFitContent)

myTable.AutoFormat Format:=35


' 35 is good format of table. can it bit lighter. how to create your own style
' and then include it. also how to change font and also include dollay symebol.
'With myTable.Borders
' .InsideLineStyle = wdLineStyleDot
' .OutsideLineStyle = wdLineStyleDouble

'End With
Next myTable

ActiveDocument.Repaginate

For Each myTable In ActiveDocument.Tables
myTable.AutoFitBehavior (wdAutoFitWindow)
Next myTable

ActiveDocument.Repaginate
For Each myTable In ActiveDocument.Tables
myTable.AutoFitBehavior (wdAutoFitFixed)
Next myTable
ActiveDocument.Repaginate
End Sub


I wanted to seek help regarding the following:

1) How can we write the complete code (sentence) if I have to change the font size using mytable.autoformat.

2) Is there a way we can change the table style, align the text in the centre of the cell, change the font size to 9.

3) We want to do this on selective tables, not all tables.



Regards