How can I centre all tables in a large word document at once?

[Emma]

I have a 300 page document with a number of tables throughout. Not all of
them are positioned in the centre of the page on which they appear, I was
wondering if anyone knew of a way to centre all tables at once rather than
fiddling with each one!
Thanks

 

[Stefan Blom]

You can run this macro:

Sub CenterAllTablesInDocument()
Dim t As Table
For Each t In ActiveDocument.Tables
t.Rows.Alignment = wdAlignRowCenter
Next t
End Sub

If you need assistance, see http://www.gmayor.com/installing_macro.htm.