Como selecionar ou eliminar texto entre dois marcadores num documento do Word?

Sabe como selecionar ou eliminar o conteúdo entre dois marcadores num documento do Word? Este artigo mostra-lhe métodos eficazes para resolver esta tarefa.

Selecionar/eliminar texto entre dois marcadores com VBA

---

Selecionar/eliminar texto entre dois marcadores com VBA

Suponha que existam dois marcadores no seu documento, conforme ilustrado na imagem seguinte. Pode selecionar ou eliminar todo o conteúdo entre esses dois marcadores utilizando o código VBA abaixo.

1. No documento, prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo e, de seguida, copie o código seguinte para a janela do Módulo.

Para selecionar ou eliminar texto entre dois marcadores, utilize 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: Eliminar 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. Prima a tecla F5 para executar o código.

4. Na primeira caixa de diálogo Kutools para Word, introduza o nome do marcador inicial na caixa de texto e clique em OK.

5. Na segunda caixa de diálogo Kutools para Word, introduza o marcador final e clique em OK. Veja a imagem:

Nota: Se o nome do marcador introduzido não existir no documento, surgirá outra caixa de diálogo do Kutools para Word a lembrá-lo de introduzir o nome correto.

De seguida, todo o conteúdo entre os marcadores especificados será imediatamente selecionado ou eliminado. Consulte as imagens.

Selecionar texto entre dois marcadores:

Remover o texto entre dois marcadores.