2 métodos rápidos para agregar por lotes corchetes a los números de nota en su documento de Word

En la p de hoyost, nos complace mostrarle 2 métodos rápidos para agregar corchetes por lotes a los números de nota en su documento de Word.

Siempre que redactemos un documento extenso, es probable que insertemos notas al pie y notas al final. Sabemos que hay opciones para el formato de número de mote. Sin embargo, no hay un estilo numérico integrado con corchetes. Lo que discutiremos en los próximos textos son las 2 soluciones para abordar este problema.

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

1. Para empezar, haga clic en la pestaña "Inicio" en el tarobtener documento.
2. Luego haga clic en el comando "Reemplazar" en el grupo "Edición" para abrir el cuadro de diálogo "Buscar y reemplazar".
3. Ahora, si está trabajando con notas al pie, ingrese “^ f” en el cuadro de texto “Buscar qué”.
4. Introduzca "[^ &]" en el cuadro de texto "Reemplazar con".
5. A continuación, haga clic en "Reemplazar todo".
6. Lo siguiente que ve es que todos los números de las notas al pie están entre corchetes. Haga clic en "Aceptar" para cerrar el cuadro de mensaje.

Además, para agregar corchetes a las notas al final, simplemente reemplace “^ f” por “^ e” en los cuadros de texto “Buscar qué”.

Método 2: ejecutar macro de Word

1. Primero y primeroost, presione "Alt + F11" en Word para activar el editor de VBA.
2. A continuación, haga clic en "Normal" y luego en la pestaña "Insertar".
3. En el menú desplegable, elija "Módulo".
4. Luego haga doble clic en el módulo recién insertado para abrir el área de edición en el lado derecho.
5. Y pega la macro que aparece a continuación:

Sub AddBracketForFootnoteAndEndnote()
  Application.ScreenUpdating = False
 
  Dim objRange As Range
 
  With ActiveDocument

    '  add bracket for footnotes. 
    If ActiveDocument.Footnotes.Count > 0 Then
      Call UpdateFootnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdFootnotesStory Then
          Call UpdateFootnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All footnotes have been added brackets.")
    Else
      MsgBox ("There is no footnote in this document")
    End If

    '  add bracket for footnotes. 
    If ActiveDocument.Endnotes.Count > 0 Then
      Call UpdateEndnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdEndnotesStory Then
          Call UpdateEndnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All endnotes have been added brackets.")
    Else
      MsgBox ("There is no endnote in this document")
    End If
  End With
 
  Application.ScreenUpdating = True
End Sub

Sub UpdateFootnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^f"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Sub UpdateEndnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^e"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

6. Ahora coloque el puntero de inserción dentro de la primera macro y haga clic en "Ejecutar".
7. Luego, primero hay un cuadro de mensaje que dice que se han agregado corchetes a todos los números de notas al pie.
8. Luego está el segundo que dice que la conversión está completa en todos los números de nota al final.

Aquí está el resultado que obtuvimos:

Prevenir la pérdida de documentos

Con datos tan valiosos como los que almacenamos, no podíamos permitirnos correr riesgos. Por lo tanto, sería prudente hacer una copia de seguridad de los archivos importantes antes de realizar cualquier movimiento con el riesgo potencial de arruinarlos, a menos que desee obtener una copia de seguridad. doc dañado.

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