[Doug Robbins - Word MVP]

Run a macro containing the following code

Dim i As Long
With ActiveDocument
For i = 1 To .Tables.Count
.Tables(i).AutoFitBehavior = True
Next i
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

"Maya" wrote in message
...
In Word 2007 i want to use Auto fit to fit more than one table in the
document, I dont want to go one by one for each table and click autofit.
Is
there a way to do autofit in 1 click for all tables in a document?