¿Cómo seleccionar o eliminar el texto ubicado entre dos marcadores en un documento de Word?

¿Sabe cómo seleccionar o eliminar el contenido entre dos marcadores en un documento de Word? Este artículo le mostrará los métodos para lograrlo.

Seleccionar/eliminar texto entre dos marcadores con VBA

---

Seleccionar/eliminar texto entre dos marcadores con VBA

Suponiendo que su documento contiene dos marcadores, como se muestra en la siguiente captura de pantalla, puede seleccionar o eliminar todo el contenido comprendido entre ellos mediante el siguiente código VBA.

1. En el documento, pulse las teclas Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo y, a continuación, copie el siguiente código en la ventana del módulo.

Para seleccionar o eliminar texto entre dos marcadores, utilice los siguientes códigos:

Código VBA: Seleccionar texto entre dos marcadores especificados en 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 dos marcadores especificados en 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. Pulse la tecla F5 para ejecutar el código.

4. En el primer cuadro de diálogo Kutools para Word, introduzca el nombre del marcador inicial en el cuadro de texto y haga clic en Aceptar.

5. En el segundo cuadro de diálogo Kutools para Word, introduzca el marcador final y haga clic en Aceptar. Vea la captura de pantalla:

Nota: Si el nombre del marcador que ha introducido no existe en el documento, aparecerá otro cuadro de diálogo de Kutools para Word recordándole que introduzca uno correcto.

A continuación, todo el contenido ubicado entre los marcadores especificados se seleccionará o eliminará de inmediato. Consulte las capturas de pantalla.

Seleccionar texto entre dos marcadores:

Elimina el texto comprendido entre dos marcadores.