Note: The other languages of the website are Google-translated. Back to English

¿Cómo seleccionar o eliminar texto 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á métodos para lidiar con él.

Seleccionar / eliminar texto entre dos marcadores con VBA


Seleccionar / eliminar texto entre dos marcadores con VBA

Suponiendo que hay dos marcadores en su documento como se muestra a continuación, puede seleccionar o eliminar todo el contenido entre estos dos marcadores con el siguiente código VBA.

1. En el documento, presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, luego copie el código siguiente en la ventana del módulo.

Para seleccionar o eliminar textos entre dos marcadores, utilice este código:

Código VBA: seleccione 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: elimine 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. presione el F5 clave para ejecutar el código.

4. En el primero Kutools for Word cuadro de diálogo, ingrese el nombre del marcador de inicio en el cuadro de texto y haga clic en OK.

5. En el segundo Kutools for Word cuadro de diálogo, ingrese el marcador final y haga clic en OK. Ver captura de pantalla:

Nota:: Si el nombre del marcador que ingresó no existe en el documento, aparecerá otro cuadro de diálogo Kutools for Word para recordarle que ingrese el correcto.

Luego, todos los contenidos entre los marcadores especificados se seleccionan o eliminan inmediatamente. Ver capturas de pantalla.

Seleccione textos entre dos marcadores:

Elimina textos entre dos marcadores.


Herramientas de productividad de palabras recomendadas

 

Kutools para Word: más de 100 funciones avanzadas para Word, ahorre su 50% de tiempo

  • Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
  • Inserte varias imágenes en carpetas en un documento de Word a la vez.
  • Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
  • Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
  • Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, etc.
Comentarios (0)
Aún no hay calificaciones. ¡Sé el primero en calificar!
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL