Cells.PreferredWidthType (Word)

Devuelve o establece la unidad de medida preferida que se debe utilizar para el ancho de las celdas especificadas. Posibles valores de retorno son wdPreferredWidthAuto - Seleccionar automáticamente las unidades de medida que usar en función de la selección actual, wdPreferredWidthPercent - Medir el ancho del elemento actual usando un porcentaje especificado, wdPreferredWidthPoints - Medir el ancho del elemento actual usando un número de puntos especificado.

With ActiveDocument.Tables(1) 
 .PreferredWidthType = wdPreferredWidthPercent 
 .PreferredWidth = 50 
End With