Microsoft Word: como editar as propriedades de várias tabelas

2

MS Word 2016.

Eu tenho um grande documento com centenas de tabelas. Desejo alterar as propriedades da tabela de todos para desmarcar a opção "Largura preferida".

Existe uma maneira de selecionar todas as tabelas para aplicar essa alteração? Ou eu tenho que selecioná-los manualmente ('select all' não funciona, pois também destaca o texto normal que desabilita as propriedades da tabela)?

    
por Shemerk 21.07.2017 / 13:45

2 respostas

1

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
    
por 21.07.2017 / 14:41
0

apenas use o cursor como se você selecionasse toda a linha, onde você vai para o lado esquerdo da página, até a seção de margem até que os cursores se inclinem para o lado direito digamos 45 graus e então você seleciona / destaca outros, mantendo também o botão de pressão pressionado após a primeira seleção. Isso é basicamente selecionando várias linhas em toda a página e eu acabei de descobrir depois de tantas recomendações de fórum de script de vb (não prático) que ele funciona para tabelas também. Eu estou apenas editando um MSDS de 21 páginas de tabelas agora mesmo.

    
por 13.04.2018 / 11:13