2 metodi rapidi per aggiungere in batch parentesi quadre ai numeri delle note nel documento di Word

Nel post di oggi, siamo lieti di mostrarvi 2 metodi rapidi per aggiungere in blocco parentesi quadre ai numeri di nota nel vostro documento Word.

Ogni volta che si redige un documento lungo, è probabile che inseriamo note a piè di pagina e note di chiusura. Sappiamo che ci sono opzioni per il formato del numero di mote. Tuttavia, non esiste uno stile numerico integrato con parentesi quadre. Ciò di cui parleremo nei prossimi testi sono le 2 soluzioni per affrontare tale problema.

Metodo 1: utilizzare la funzione "Trova e sostituisci".

1. Per iniziare, fai clic sulla scheda "Home" nel documento di destinazione.
2. Quindi fare clic sul comando "Sostituisci" nel gruppo "Modifica" per aprire la finestra di dialogo "Trova e sostituisci".
3. Ora, se stai lavorando con le note a piè di pagina, inserisci "^f" nella casella di testo "Trova cosa".
4. Immettere "[^&]" nella casella di testo "Sostituisci con".
5. Quindi fai clic su "Sostituisci tutto".
6. La prossima cosa che vedi è che tutti i numeri delle note a piè di pagina sono tra parentesi quadre. Fare clic su "OK" per chiudere la finestra di messaggio.

Inoltre, per aggiungere parentesi quadre alle note di chiusura, è sufficiente sostituire "^f" con "^e" nelle caselle di testo "Trova".

Metodo 2: eseguire la macro di Word

1. Innanzitutto, premi “Alt + F11” in Word per attivare l'editor VBA.
2. Quindi fai clic su "Normale" e quindi sulla scheda "Inserisci".
3. Nel menu a discesa, scegli "Modulo".
4. Quindi fare doppio clic sul modulo appena inserito per aprire l'area di modifica sul lato destro.
5. E incolla lì la seguente macro:

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. Ora posiziona il puntatore di inserimento all'interno della prima macro e fai clic su "Esegui".
7. Quindi prima c'è una finestra di messaggio che dice che le parentesi quadre sono state aggiunte a tutti i numeri delle note a piè di pagina.
8. Poi c'è il secondo che dice che la conversione è completa in tutti i numeri delle note di chiusura.

Ecco il risultato che abbiamo ottenuto:

Prevenire la perdita di documenti

Con dati preziosi quanto quelli che abbiamo archiviato, non potevamo permetterci di correre rischi. Pertanto, sarebbe saggio eseguire il backup dei file importanti prima di intraprendere qualsiasi mossa con il potenziale rischio di rovinarli, a meno che non si desideri ottenere un file documento danneggiato.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui corruzione xls and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com