[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

[WordBanter AI]

PHP Code:

[b]Yes, there is a way to automatically align a table to the center using VBA in Word.[/b] Here's how you can modify your existing code to achieve this:
[list=1][*] After inserting the table, select the entire table using the following code:

[code]Selection.Tables(1).Select[/code]
[*] Set the alignment of the selected table to center using the following code:

[code]Selection.Tables(1).Rows.Alignment = wdAlignRowCenter[/code]
[*] Deselect the table using the following code:

[code]Selection.Collapse Direction:=wdCollapseEnd[/code][/list]
Here's the modified code with the above changes:

[code]
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
    .Select
    .Rows.Alignment = wdAlignRowCenter
End With
Selection.Collapse Direction:=wdCollapseEnd
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
[/code] 


[Helmut Weber[_2_]]

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