Ir para o conteúdo principal

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

Ferramentas de produtividade recomendadas para Word

Kutools for Word: Integrando IA 🤖, mais de 100 recursos avançados economizam 50% do tempo de processamento de documentos.Download grátis

Office Tab: apresenta guias semelhantes a navegadores no Word (e outras ferramentas do Office), simplificando a navegação em vários documentos.Download grátis


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

Guia Office: traz interfaces com guias para Word, Excel, PowerPoint...
ot palavra meio anúncio 100
Aprimore seu fluxo de trabalho agora.      Saiba 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 >Encontre 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

Observação: 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 na inserção guia, copie e cole o seguinte código VBA na janela Módulo;

Etapa 3: clique em Executedoc-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
Próximo
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


Melhores ferramentas de produtividade de escritório

Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!

🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo  /  Reescrever texto  /  Resumir documentos  /  Pergunte para obter informações com base no documento, tudo dentro do Word

📘 Domínio de documentos: Páginas divididas  /  Mesclar Documentos  /  Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...)  /  Conversão em lote para PDF  /  Exportar páginas como imagens  /  Imprima vários arquivos de uma vez...

Edição de conteúdo: Localização e substituição em lote em vários arquivos  /  Redimensionar todas as imagens  /  Transpor linhas e colunas da tabela  /  Converter tabela em texto...

🧹 Limpeza sem esforço: Varrer Espaços extras  /  Quebras de seção  /  Todos os cabeçalhos  /  Caixas de Texto  /  hiperlinks  / Para mais ferramentas de remoção, acesse nosso Remover Grupo...

Inserções criativas: Inserir Mil Separadores  /  Caixas de seleção  /  botões de rádio  /  QR Code  /  Código de barras  /  Tabela de linhas diagonais  /  Legenda da equação  /  Legenda da Imagem  /  Legenda da Tabela  /  Várias fotos  / Descubra mais no Inserir Grupo...

🔍 Seleções de precisão: Identificar páginas específicas  /  tabelas  /  formas  /  parágrafos de título  / Melhore a navegação com mais Selecione recursos...

Aprimoramentos de estrelas: Navegue rapidamente para qualquer local  /  inserir automaticamente texto repetitivo  /  alternar perfeitamente entre janelas de documentos  /  11 ferramentas de conversão...

👉 Quer experimentar esses recursos? Kutools para Word oferece um 60-day free trial, sem limitações! 🚀
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is very useful definitely, thank you very much. Is there a way to add bold text in the selection? what would be the best way to change line 7? I want to get all headings and also all keywords in normal text that are marked bold in the text.
This comment was minimized by the moderator on the site
Thanks, this is very useful. I wanted to select all instances of all Headings at once, so I changed line 7 to this:
If tempTable.OutlineLevel <> wdOutlineLevelBodyText Then
This comment was minimized by the moderator on the site
Thanks, this is very useful. I wanted to select all instances of Heading1 and Heading2 at once, so I changed line 7 to this: If (tempTable.Style = ActiveDocument.Styles(wdStyleHeading1)) Or (tempTable.Style = ActiveDocument.Styles(wdStyleHeading2)) Then
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations