Infelizmente, não é possível selecionar todas as tabelas de uma só vez com um atalho simples. Felizmente, até mesmo um iniciante pode usar uma macro simples e o trabalho é concluído em minutos.
Para o Word 2010 em diante, a guia "Desenvolvedor" já deve ser mostrada por padrão, mas se não, ela é acessada por meio de seu editor de faixa de opções integral. Nestas aplicações, o editor de faixa de opções está disponível em Arquivo > Opções > Personalizar faixa de opções . Marque a caixa de seleção Developer .
Quandoissoforfeito,cliquenaguiaDesenvolvedor>BotãoMacros
Nanovajanela,digite"Autofit_All_Tables" na caixa de texto mostrada e clique no botão Criar para criar uma nova macro.
Coleoseguintecódigonaáreadetextobranca,substituindototalmenteocódigoexistente.
SubAutofit_All_Tables()Application.ScreenUpdating=FalseDimTblAsTableForEachTblInActiveDocument.TablesTbl.AutoFitBehavior(wdAutoFitWindow)Tbl.AllowAutoFit=TrueNextApplication.ScreenUpdating=TrueApplication.ScreenRefreshMsgBox"Done", vbOKOnly
End Sub
Em seguida, clique na seta verde Executar (localizada na caixa vermelha na imagem).
Vocêdeveobterumapequenajanelaquediz"Concluído". Feche a janela do desenvolvedor do VBA e sente-se em sua cadeira parecendo satisfeito consigo mesmo.
Nota: Se você deseja definir a largura para uma fração percentual da largura entre as margens, crie uma macro chamada "Set_Global_Table_Width" e cole o código a seguir. Aqui, a largura é configurada para 100 (ou seja, 100%), mas você pode alterá-la para qualquer porcentagem desejada depois de colá-la na caixa Macro do desenvolvedor do VBA do Word mostrada acima.
Sub Set_Global_Table_Width()
Dim pT As Word.Table
For Each pT In ActiveDocument.Tables
pT.PreferredWidthType = wdPreferredWidthPercent
pT.PreferredWidth = 100
Next
MsgBox "Done"
End Sub