how to align table to the center in word VBA

[daniel lie]

Hi,

I wonder if there is a way of automatically aligning table to the center. I
have a macro that would allow user to insert a table with their desired
number of rows and columns and would place the table right in the center.
This way, when user tries to change the left or right margins, it would
always stay in the middle.

I have got the following code (i got from recording the macro)but it only
applies the paragraph, not the whole table. Because after inserting the
table, i highlighted the table and saw that it's not centered but is left.

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=myRow,
NumColumns:= _
myCol, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=
_
wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "Table Grid" Then
.Style = "Table Grid"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True

End With

Selection.MoveDown Unit:=wdLine, Count:=2
Selection.TypeParagraph
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.TypeText Text:="Figure 1. Testing"
Selection.MoveLeft Unit:=wdCharacter, Count:=10
Selection.TypeBackspace
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeParagraph
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft

Hope i explained it well.

Thank you in advance

url:http://www.ureader.com/gp/1018-1.aspx

 

[Helmut Weber]

Hi Daniel,

Selection.Tables(1).Rows.Alignment = wdAlignRowCenter


--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

 

[daniel lie]

It works now.

Thank you for your help.

url:http://www.ureader.com/msg/10182802.aspx