Columns.PreferredWidthType (Word)
Devuelve o establece la unidad de medida preferida que se debe utilizar para el ancho de las celdas especificadas, columnas o tabla. 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).Columns
.PreferredWidthType = wdPreferredWidthPercent
.PreferredWidth = 50
End With