expression.PasteAdjustTableFormatting
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example sets Word to automatically adjust the formatting of tables when cutting and pasting if the option has been disabled.
Sub AdjustTableFormatting()
With Options
If .PasteAdjustTableFormatting = False Then
.PasteAdjustTableFormatting = True
End If
End With
End Sub