Note: The other languages of the website are Google-translated. Back to English

Como selecionar todos os parágrafos de título no Word?

Às vezes, precisamos excluir ou editar todos os parágrafos de título. A primeira etapa é selecionar todos os parágrafos de título. Este tutorial ensinará os métodos a seguir para selecionar todos os parágrafos de título.

Selecione todos os parágrafos de título com o Find and Replace

Selecione todos os parágrafos de título com o VBA

Selecione todos os parágrafos de título com o Kutool para Word


seta azul bolha direitaSelecione todos os parágrafos de título com o Find and Replace

Surpreendente! Use guias eficientes no Word (Office) como Chrome, Firefox e novo Internet Explorer!

Leia mais Download grátis

A função Localizar e Substituir no Word é a maneira mais comum de selecionar todos os parágrafos de título.

Etapa 1: clique Início >Procure e selecione o Pesquisa Avançada marca

Etapa 2: clique Mais botão para abrir mais opções de pesquisa;

doc-select-header-paragraph-1

Etapa 3: clique Formato marque as opções de pop-up abaixo.

doc-select-header-paragraph-2

Etapa 4: clique no botão Style para selecionar o estilo de título você usou na caixa de diálogo Encontrar o estilo.

doc-select-header-paragraph-3

NOTA este método só pode selecionar um parágrafo de título de cada vez. É demorado editar todos os parágrafos de título.


seta azul bolha direitaSelecione todos os parágrafos de título com o VBA

Alternativamente, podemos usar o VBA para selecionar todos os parágrafos de cabeçalhos.

Passo 1: pressione “Alt-F11” para abrir a janela do Microsoft Visual Basic for Application;

Etapa 2: clique Módulo no inserção guia, copie e cole o seguinte código VBA na janela Módulo;

Etapa 3: clique em Operedoc-reverso-sinal-6 botão para aplicar o VBA.

O código VBA para selecionar todos os parágrafos de título:

Sub SelectHeadingParagraphs ()
Dim TempTable As Paragraph
Application.ScreenUpdating = False
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Para cada tempTable em ActiveDocument.Paragraphs
'Debug.Print tempTable.Range.Style & "" & wdStyleHeading2
If tempTable.Style = ActiveDocument.Styles (wdStyleHeading2) Então
'Debug.Print "aaa"
tempTable.Range.Editors.Add wdEditorEveryone
Se acabar
Seguinte
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub

Nota: este método usa Heading2 como exemplo. Título2 pode mudar para outro estilo de título.


seta azul bolha direitaSelecione todos os parágrafos de título com o Kutool para Word

Existe uma maneira mais fácil de selecionar todos os parágrafos de título? Kutool para Word é a sua melhor escolha. Depois de instalar o Kutool para Word, você pode selecionar todos os títulos (parágrafos de títulos) com um clique.

Kutools for Word, um complemento útil, inclui grupos de ferramentas para facilitar seu trabalho e aprimorar sua capacidade de processar documentos de texto. Teste grátis por 45 dias! Get It Now!

Clique Kutools >Seleção de parágrafo no grupo Selecionar parágrafo. Veja a imagem

doc-select-header-paragraph-4

Para obter informações mais detalhadas sobre Selecione Parágrafos de Título do Kutools for Word, visite: Seleção de parágrafo descrição do recurso



Ferramentas de produtividade de palavras recomendadas

 

Kutools para Word - Mais de 100 recursos avançados para Word, economize 50% do tempo

  • Operações complicadas e repetidas podem ser executadas com processamento único em segundos.
  • Insira várias imagens em pastas em um documento do Word de uma vez.
  • Mescle e combine vários arquivos do Word em pastas em um na ordem desejada.
  • Divida o documento atual em documentos separados de acordo com o título, quebra de seção ou outros critérios.
  • Converta arquivos entre Doc e Docx, Docx e PDF, coleção de ferramentas para conversões e seleção comuns, e assim por diante ...
Comentários (3)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Obrigado, isso é muito útil. Eu queria selecionar todas as instâncias de Heading1 e Heading2 de uma vez, então mudei a linha 7 para isto: If (tempTable.Style = ActiveDocument.Styles(wdStyleHeading1)) Or (tempTable.Style = ActiveDocument.Styles(wdStyleHeading2)) Then
Este comentário foi feito pelo moderador no site
Obrigado, isso é muito útil. Eu queria selecionar todas as instâncias de todos os títulos de uma só vez, então mudei a linha 7 para isso:
If tempTable.OutlineLevel <> wdOutlineLevelBodyText Then
Este comentário foi feito pelo moderador no site
Isso é muito útil definitivamente, muito obrigado. Existe uma maneira de adicionar texto em negrito na seleção? qual seria a melhor forma de mudar a linha 7? Desejo obter todos os títulos e também todas as palavras-chave em texto normal marcadas em negrito no texto.
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL