PreferredWidthType Property Example
This example sets Microsoft Word to accept preferred widths as a percentage of window width, and then sets the preferred width of the first table in the document to 50% of the window width.
With ActiveDocument.Tables(1)
.PreferredWidthType = wdPreferredWidthPercent
.PreferredWidth = 50
End With