Microsoft Word Table so it is centered based on width of page

This will center the table on the page width:

Dim TotalWidth As Long, LeftIndent As Long
For x = 1 To ActiveDocument.Tables(1).Columns.Count
    TotalWidth = TotalWidth + ActiveDocument.Tables(1).Columns(x).Width
Next x
LeftIndent = (ActiveDocument.PageSetup.PageWidth - ActiveDocument.PageSetup.LeftMargin - TotalWidth) / 2
ActiveDocument.Tables(1).Rows.SetLeftIndent LeftIndent:=LeftIndent, RulerStyle:=wdAdjustNone

Select allOpen in new window

Dim TotalWidth As Long, LeftIndent As Long

For each tb In ActiveDocument.Tables
     TotalWidth = 0
     If tb.Title = "BBA Table 127" then

          For x = 1 to tb.Columns.Count

               TotalWidth = TotalWidth + tb.Columns(x).Width 'Error 1


          next x
         Msgbox TotalWidth

        'Error 2. the comma at the end of the following line causes an error,  I remove. the comma and it runs
        'however the PageWidth and LeftMargin return 9999999
         LeftIndent = (ActiveDocument.PageSetup.PageWidth - ActiveDocument.PageSetup.LeftMargin - TotalWidth),
         tb.Rows.SetLeftIndent LeftIndent:=LeftIndent, RulerStyle:=wdAdjustNone
     end if

next

Error 1:
Run-time error '5992':
Cannot access individual columns in this collection because the table has mixed cell widths

Error 2:
Compile Error:  Syntax Error