Do Básico ao Avançado
Home | Tutoriais | Artigos |Contato

Como selecionar todos os Títulos no Word?




Às vezes precisamos excluir ou editar todos os Títulos do documento e dependendo do número de páginas e da quantidade de Títulos é muito trabalhoso excluir ou alterar manualmente um a um. Neste tutorial mostrarei, usando o VBA, como selecionar todos os Títulos definidos como Título 2 no documento para que você possa, por exemplo, alterá-los de uma só vez para Título 3 ou para qualquer outro Título.



Selecionar todos os Título 2 no Word com o VBA


Passo1:


Na Guia Desenvolvedor, no Grupo Código clique em Visual Basic para abrir o Editor do Visual Basic for Application ou pressione “Alt-F11”


Abrir o Editor do Visual Basic


Passo 2:


No menu Inserir clique em Módulo, copie e cole o código VBA a seguir na janela de código;


Inserir Módulo


Na Janela de Código adicione o código abaixo:


Sub SelecionaTitulos()
Dim sTit As Paragraph
Application.ScreenUpdating = False
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
For Each sTit In ActiveDocument.Paragraphs
If sTit.Style = ActiveDocument.Styles(wdStyleHeading2) Then
sTit.Range.Editors.Add wdEditorEveryone
End If
Next
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub



O código VBA acima seleciona todos os Títulos especificados como Título 2 do documento.


Deverá ficar como na imagem abaixo:


Código VBA para selecionar os títulos


Feche o Editor do Visual Basic clicando no menu Arquivo e depois em Fechar e voltar para o Microsoft Word.


Fechar o Editor do Visual Basic


Passo 3:


Chegou a hora de fazermos um teste pra ver se a macro está funcionando.


Abra um documento que contenha Títulos, como por exemplo, um trabalho acadêmico.


Na Guia Desenvolvedor, no Grupo Código clique em Macros.


Macros


Selecione a macro SelecionaTitulos e clique em Executar.


Executar Macro


Veja o resultado e observe que somente os textos especificados como Título 2 foram selecionados.


Selecionar Títulos


Agora que todos os textos especificados como Título 2 estão selecionados você pode alterá-los para outro estilo de Título que desejar clicando na galeria de Estilos de Título.


Títulos


Consideração Final: No exemplo deste tutorial criamos um código para selecionar no documento somente os textos marcados como Título 2. Para selecionar outro Título é só alterar o código que está entre parênteses (wdStyleHeading2) para:


(wdStyleHeading1) = Título 1

(wdStyleHeading3) = Título 3

(wdStyleHeading4) = Título 4

(wdStyleHeading5) = Título 5

(wdStyleHeading6) = Título 6

(wdStyleHeading7) = Título 7

(wdStyleHeading8) = Título 8

(wdStyleHeading9) = Título 9




Faça download do arquivo usado como exemplo neste tutorial: Baixar Arquivo



Gostou? Se quiser mais eu tenho um e-Book sobre VBA que você pode se interessar.
Confira aqui









Conteúdo Correspondente:




eBook Word 2010 VBA

© 2013 Tutoriais Word - Todos os direitos reservados