Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿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á los métodos para tratar con él.

Seleccione / elimine texto entre dos marcadores con VBA


Seleccione / elimine texto entre dos marcadores con VBA

Suponiendo que haya dos marcadores en su documento como se muestra a continuación en la captura de pantalla, 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 siguiente código 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 el 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 de Kutools for Word para recordarle que debe ingresar el correcto.

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

Seleccione textos entre dos marcadores:

Eliminar textos entre dos marcadores.



Herramientas recomendadas de productividad de palabras

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

  • Las operaciones complicadas y repetidas se pueden realizar una sola vez en segundos.
  • Inserte varias imágenes a través de carpetas en el documento de Word a la vez.
  • Combine y combine varios archivos de Word en carpetas en uno con su orden deseado.
  • Divida el documento actual en documentos separados según el encabezado 1, 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, y así...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.