expression.AllowAutoFit
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example sets the first table in the active document to automatically resize based on its contents.
Sub AllowFit()
ActiveDocument.Tables(1).AllowAutoFit = True
End Sub