2 formas de cambiar por lotes textos a superíndice o subíndice en su documento de Word

En el artículo de hoy, nos gustaría mostrarle 2 formas de cambiar por lotes textos a superíndice o subíndice en su documento de Word.

En ocasiones, necesitamos convertir ciertos textos en un documento de Word a superíndices o subíndices, sobre todo cuando aparecen varias veces. En estos casos, la sustitución por lotes es fundamental. Por ello, le ofrecemos dos métodos rápidos para realizar esta tarea.

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

En los próximos contenidos, usaremos la muestra "DataNumen Word Repair v2.5 ”como nuestra demostración. Nuestro objetivo es reemplazar "v2.5" como subíndice.

1. En primer lugar, haga clic en la pestaña "Inicio".
2. A continuación, haga clic en "Reemplazar" para abrir el cuadro de diálogo "Buscar y reemplazar".
3. Primero ingrese "v2.5" en el cuadro de texto "Buscar qué". No olvide ingresar un espacio antes del texto.
4. Luego ingrese "v2.5" en el cuadro de texto "Reemplazar con". Esta vez no hay espacio antes del texto.
5. A continuación, haga clic en el botón "Más" para ampliar más opciones.
6. Ahora haga clic en "Formato" y elija "Fuente".
7. En el cuadro de diálogo "Buscar fuente", marque la casilla "Superíndice" o "Subíndice".
8. Luego haga clic en "Aceptar".
9. Por último, haga clic en el botón "Reemplazar todo".

Puedes comprobar el efecto aquí:

Método 2: Reemplazo por lotes ejecutando una macro de Word

1. Para empezar, presione "Alt + F11" para activar el editor de VBA.
2. Luego haga clic en el proyecto "Normal" y luego en la pestaña "Insertar".
3. Elija "Módulo" en el menú desplegable.
4. A continuación, haga doble clic en el nuevo módulo para abrir el área de codificación.
5. Pegue la siguiente macro allí:

Sub ReplaceTheTextAsSubscript()
  Dim strSelectText As String
  Dim strReplaceText As String
 
  strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
  strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
 
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find.Replacement.Font
    .Superscript = False
    .Subscript = True
  End With
  With Selection.Find
    .Text = strSelectText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

6. Haga clic en "Ejecutar".
7. Primero está el cuadro "Seleccionar texto". Ingrese su texto de búsqueda y haga clic en "Aceptar". En este caso, escriba "v2.5".
8. Luego está el cuadro "Reemplazar texto". Ingrese el texto de reemplazo allí y haga clic en "Aceptar". Escriba "v2.5".

Si necesita cambiar los textos a superíndice, puede usar esta macro:

Sub ReplaceTheTextAsSuperscript()
  Dim strSelectText As String
  Dim strReplaceText As String
 
  strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
  strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
 
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find.Replacement.Font
    .Superscript = True
    .Subscript = False
  End With
  With Selection.Find
    .Text = strSelectText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Corregir errores de documentos

Los errores de Word no son ajenos a la mayoría de nosotros. Un error de Word puede resultar en un docx corrupto expediente. Para solucionar este problema, debe utilizar una herramienta profesional y calificada para recuperar el documento roto.

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 xlsx corrupto y pdf reparar productos de software. Para más información visite www.datanumen.com