Como alterar a largura da coluna para todas as tabelas do Word de uma vez

Question

Eu tenho muitas (> 200) tabelas no Word que possuem o mesmo layout (duas colunas, seis linhas).

Eu preciso ajustar as larguras das colunas para todos eles. Existe uma maneira de automatizar isso?

    

Answer 1

Você pode usar uma macro VBA para redimensionar todas as tabelas.

Pressione ALT + F11 no Word e insira a macro em Projeto »ThisDocument .
Execute o código com F5

Sub resizeTables()    
  For Each Table In ActiveDocument.Tables
    On Error Resume Next
    Table.Columns(1).Width = 200
    Table.Columns(2).Width = 300
    On Error GoTo 0
  Next    
End Sub

• Columns(2) representa a coluna 2 em todas as tabelas
• O valor Width = 300 é a largura desejada em pixels. Mude para as suas necessidades
• Se sua tabela tiver menos colunas que sua macro VBA, você receberá uma exceção. Para isso, adicionei On Error Resume Next para ignorar erros e On Error GoTo 0 para interromper esse tratamento de erros