Skip to main content

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

Author: Siluvia Last Modified: 2025-08-06

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

Seleccionar/eliminar texto entre dos marcadores con VBA

Seleccionar/eliminar texto entre dos marcadores con VBA

Supongamos que hay dos marcadores en tu documento, como se muestra en la captura de pantalla a continuación. Puedes seleccionar o eliminar todo el contenido entre estos dos marcadores con el siguiente código VBA.

Word diaplaying content between two bookmarks

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

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo, luego copia el siguiente código en la ventana del Módulo.

Para seleccionar o eliminar textos entre dos marcadores, utiliza 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. Presiona la tecla F5 para ejecutar el código.

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

Dialog box for entering the start bookmark name

5. En el segundo Kutools para Word cuadro de diálogo, introduce el marcador final y haz clic en Aceptar. Ver captura de pantalla:

Dialog box for entering the end bookmark name

Nota: Si el nombre del marcador que ingresaste no existe en el documento, aparecerá otro cuadro de diálogo de Kutools para Word para recordarte que ingreses el correcto.

Luego, todo el contenido entre los marcadores especificados se seleccionará o eliminará inmediatamente. Ver capturas de pantalla.

Seleccionar textos entre dos marcadores:

Content between the specified bookmarks are selected

Eliminar textos entre dos marcadores.

Content between the specified bookmarks are deleted

Office Tab: Añade interfaces con pestañas a Word, Excel, PowerPoint...
Navigate through documents using Office Tab

Las mejores herramientas de productividad para Office

Kutools para Word: ¡Mejora tu experiencia en Word con más de 100 funciones excepcionales!

🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir (Conservar Formato) / Super Traducir (Conservar Formato) / Redacción AI / Revisión con IA...

📘 Dominio del Documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir en lote a PDF...

✏ Edición de Contenidos: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tablas / Convertir tabla a texto...

🧹 Limpieza sin esfuerzo: Elimina espacios extras / saltos de sección / cuadros de texto / hipervínculos / Para más herramientas de eliminación, ve al grupo Eliminar...

➕ Inserciones creativas: Insertar separadores de miles / casillas de verificación / botones de opción / Código QR / Código de Barras / múltiples imágenes / Descubre más en el grupo Insertar...

🔍 Selecciones precisas: Localiza páginas específicas / tablas / formas / Párrafos de Encabezado / Mejora la navegación con más funciones de Seleccionar...

⭐ Mejoras destacadas: Navega a cualquier ubicación / inserta automáticamente texto repetitivo / alterna entre ventanas de documento /11 herramientas de conversión...

🌍 Compatible con más de40 idiomas: Utiliza Kutools en tu idioma preferido: admite Inglés, Español, Alemán, Francés, Chino y más de40 idiomas.

Kutools and Kutools Plus tabs on the Word Ribbon
👉 ¿Quieres probar estas funciones? ¡Descarga Kutools para Word ahora! 🚀
 

Las mejores herramientas de productividad para Office

Kutools para Word: más de 100 herramientas para Word

Descarga gratuita Comprar ahora Más información sobre Kutools