Como selecionar ou excluir texto entre dois marcadores em um Documento do Word?
Você sabe como selecionar ou excluir o conteúdo entre dois marcadores em um Documento do Word? Este artigo mostrará métodos para lidar com isso.
Selecionar/excluir texto entre dois marcadores com VBA
Selecionar/excluir texto entre dois marcadores com VBA
Suponha que existam dois marcadores no seu documento, conforme mostrado na captura de tela abaixo. Você pode selecionar ou excluir todo o conteúdo entre esses dois marcadores com o seguinte código VBA.
1. No documento, pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo e, em seguida, copie o código abaixo para a janela Módulo.
Para selecionar ou excluir textos entre dois marcadores, use os códigos abaixo:
Código VBA: Selecionar texto entre dois marcadores especificados no Word:
Sub SelectBetweenBookmarks()
Dim xRange As Range
Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
Set xRange = ActiveDocument.Content
xBookMarkOne = InputBox("Please enter the start bookmark:", "Kutools for Word")
xBookMarkTwo = InputBox("Please enter the end bookmark:", "Kutools for Word")
Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
If xBMone Is Nothing Or xBMtwo Is Nothing Then
MsgBox "Please enter the correct bookmark name", vbInformation, "KuTools for Word"
Exit Sub
End If
xRange.Start = xBMone.Range.End
xRange.End = xBMtwo.Range.Start
xRange.Select
End Sub
Código VBA: Excluir texto entre dois marcadores especificados no Word:
Sub DeleteBetweenBookmarks ()
Dim xRange As Range
Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
Set xRange = ActiveDocument.Content
xBookMarkOne = InputBox("Please enter the start bookmark:", "Kutools for Word")
xBookMarkTwo = InputBox("Please enter the end bookmark:", "Kutools for Word")
Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
If xBMone Is Nothing Or xBMtwo Is Nothing Then
MsgBox " Please enter the correct bookmark name ", vbInformation, "KuTools for Word"
Exit Sub
End If
xRange.Start = xBMone.Range.End
xRange.End = xBMtwo.Range.Start
xRange.Delete
End Sub
3. Pressione a tecla F5 para executar o código.
4. Na primeira caixa de diálogo Kutools para Word, insira o nome do marcador inicial na caixa de texto e clique em OK.
5. Na segunda caixa de diálogo Kutools para Word, insira o marcador final e clique em OK. Veja a captura de tela:
Nota: Se o nome do marcador inserido não existir no documento, outra caixa de diálogo Kutools para Word será exibida para lembrá-lo de inserir o correto.
Em seguida, todo o conteúdo entre os marcadores especificados será selecionado ou excluído imediatamente. Veja as capturas de tela.
Selecionar textos entre dois marcadores:
Excluir textos entre dois marcadores.
Office Tab: Traz interfaces com guias para o Word, Excel, PowerPoint...![]() |
Aprimore seu fluxo de trabalho agora.Saiba Mais sobre o Office Tab Download Grátis |
Melhores Ferramentas de Produtividade para Office
Kutools for Word – Aprimore sua experiência no Word com mais de 100 recursos incríveis!
🤖 Funcionalidades de IA do Kutools: AI Assistant / Assistente em Tempo Real / Super Polir (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA...
📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em vários formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...
✏ Edição de Corpo: Localizar e Substituir em Lote em múltiplos arquivos / Redimensionar todas as Imagens / Transpor Linhas e Colunas de Tabela / Converter Tabela para Texto...
🧹 Limpeza Fácil: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de Remover, acesse o grupo Remover...
➕ Inserções Criativas: Inserir Delimitadores de Milhares / Caixas de Seleção / Botões de Rádio / Código QR / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...
🔍 Seleções Precisas: Localize Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...
⭐ Melhorias Destacadas: Navegue para qualquer Intervalo / Insira Texto Repetitivo automaticamente / Alternar entre Janelas de Documento /11 ferramentas de Conversão...
🌍 Compatível com40+ Idiomas: Use Kutools no seu idioma preferido — compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!
Inclui Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools for Word · Kutools for PowerPoint
📦 Tenha todas as5 ferramentas em uma única suíte | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economize Tempo e aumente a produtividade imediatamente
Melhores Ferramentas de Produtividade para Office
Kutools for Word – 100+ ferramentas para Word
- 🤖 Funcionalidades de IA do Kutools: AI Assistant / Assistente em Tempo Real / Super Polir / Super Traduzir / Redação por IA / Revisão por IA
- 📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Converter em Lote para PDF
- ✏ Edição de Corpo: Localizar e Substituir em Lote / Redimensionar todas as Imagens
- 🧹 Limpeza Fácil: Remover Espaços Extras / Remover Quebras de Seção
- ➕ Inserções Criativas: Inserir Delimitadores de Milhares / Inserir Caixas de Seleção / Criar Códigos QR
- 🌍 Compatível com40+ Idiomas: Kutools fala o seu idioma – compatível com mais de40 idiomas!