2 métodos inteligentes para eliminar contenido entre dos palabras específicas en su documento de Word

En este artículo, nos gustaría mostrarle 2 formas inteligentes de eliminar contenido entre 2 palabras específicas en su documento de Word.

En nuestro artículo anterior, discutimos el enfoque para extraerlos a otro documento. Para obtener más información, puede consultar este post: Cómo extraer contenido entre dos palabras específicas de un documento de Word a otro

Y hoy, ilustraremos 2 formas de eliminar contenido entre dos palabras específicas en su documento de Word. Aún así, veamos dónde están los escenarios de aplicación.

1. En primer lugar, solemos poner el texto entre corchetes. Y después de un tiempo, es posible que deba eliminarlos o reescribirlos, como a continuación:
2. En segundo lugar, en algunos archivos de registro o informes de laboratorio, es posible que deba eliminar el texto entre 2 palabras específicas. Por ejemplo, en la siguiente captura de pantalla, es posible que deba eliminar los textos en rojo entre "Comentario:" y "Valor:".

Ahora aquí hay 2 enfoques.

Método 1: utilizar la función "Buscar y reemplazar"

1. En primer lugar, presione "Ctrl + H" para abrir el cuadro "Buscar y reemplazar".
2. En el cuadro de texto "Buscar qué", ingrese la primera palabra, "*" y la segunda palabra. En nuestro caso, debemos ingresar “Comentario: * Valor:”.
3. Luego, en el cuadro de texto "Reemplazar con", ingrese las palabras que desea conservar. Por ejemplo, para eliminar solo el contenido entre palabras, debe ingresar la primera y la segunda palabra en el cuadro "Reemplazar con", como "Valor de comentario". O también puede optar por eliminar las 2 palabras dejando vacío el cuadro "Reemplazar con".
4. A continuación, haga clic en "Más" para que aparezcan más opciones.
5. Luego, marque la casilla "Usar comodines" y haga clic en "Reemplazar todo".

Método 2: ejecutar códigos VBA

1. Primero y primeroost, presione "Alt + F11" para activar el editor VBA en Word.
2. Luego haga clic en el proyecto "Normal" y luego en la pestaña "Insertar" en la barra de menú.
3. A continuación, elija "Módulo" en el menú desplegable de "Insertar".
4. Haga doble clic en el módulo para abrirlo y pegue los siguientes códigos allí:

Sub DeleteTextBetweenTwoWords()
  Dim strFirstWord As String
  Dim strLastWord As String
  Dim objDoc As Document
  Dim objWord As Object
 
  Set objDoc = ActiveDocument
  strFirstWord = InputBox("Enter the first word:", "First Word")
  strLastWord = InputBox("Enter the last word:", "Last Word")
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = strFirstWord & "*" & strLastWord
      .Replacement.Text = strFirstWord & strLastWord
      .MatchWildcards = True
      .Execute Replace:=wdReplaceAll
    End With
  End With
 
  Set objDoc = Nothing
  Set objWord = Nothing
End Sub

5. Y haga clic en "Ejecutar" o presione "F5" para ejecutar los códigos.
6. Ahora, en el cuadro "Primera palabra", ingrese la primera palabra. Y haga clic en "Aceptar" para continuar.
7. De manera similar, en el cuadro "Última palabra", ingrese la última palabra. Haga clic en "Aceptar" para continuar.

Nota:

Para eliminar también las 2 palabras, puede reemplazar esta línea de código:

.Replacement.Text = strFirstWord & strLastWord

A

.Replacement.Text = “”

Eliminar contenido entre corchetes

1. Siga los pasos anteriores para instalar y ejecutar una macro.
2. En su lugar, ejecute esta macro:

Sub DeleteTextInAngleBrackets()
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "\<(*)\>"
      .MatchWildcards = True
      .Replacement.Text = "<>"
      .Execute Replace:=wdReplaceAll
    End With
  End With
End Sub

La macro anterior está dedicada a eliminar texto entre corchetes angulares (<>).

Ciertamente, puede haber muchos tipos de corchetes en su documento.

Para llaves {}:

Reemplace

.Text = "\<(*)\>"
.Replacement.Text = "<>"

Con

.Text = "\{(*)\}"
.Replacement.Text = "{}"

Para paréntesis ():

Usa estas 2 líneas

.Text = "\((*)\)"
.Replacement.Text = "()"

Para corchetes []:

.Text = "\[(*)\]"
.Replacement.Text = "[]"

Haga una copia de seguridad de sus archivos ahora

Siempre es bueno tomar precauciones antes de que suceda algo malo. Y hacer una copia de seguridad de sus documentos de Word le permitirá recurrir a la última versión de los datos en caso de que ocurra algún desastre. Entonces puede utilizar una herramienta para reparar palabra sin mucha ansiedad.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo recuperar xls y pdf reparar productos de software. Para más información visite www.datanumen.com