Table.PreferredWidthType (Word)

Retorna ou define a unidade de medida preferencial a ser usada para a largura da tabela especificada. Leitura/gravação WdPreferredWidthType. Os valores de retorno possíveis são wdPreferredWidthAuto - Seleciona automaticamente a unidade de medida a ser utilizada com base na seleção atual, wdPreferredWidthPercent - Mede a largura do item atual usando um percentual especificado, wdPreferredWidthPoints - Mede a largura do item atual usando um número de itens especificado.

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