2 Metode rapide de a adăuga paranteze pătrate la numerele de note din documentul Word

În postarea de astăzi, suntem încântați să vă arătăm 2 metode rapide de a adăuga în lot paranteze pătrate la numerele notelor din documentul Word.

Ori de câte ori redactăm un document lung, este posibil să introducem note de subsol și note de final. Știm că există opțiuni pentru formatul numărului mote. Cu toate acestea, nu există un stil numeric încorporat cu paranteze pătrate. Ceea ce vom discuta în textele următoare sunt cele 2 soluții pentru a aborda o astfel de problemă.

Metoda 1: Utilizați funcția „Găsiți și înlocuiți”.

1. Pentru început, faceți clic pe fila „Acasă” din documentul țintă.
2. Apoi faceți clic pe comanda „Înlocuire” din grupul „Editare” pentru a deschide caseta de dialog „Găsiți și înlocuiți”.
3. Acum, dacă lucrați cu note de subsol, introduceți „^f” în caseta de text „Găsiți ce”.
4. Introduceți „[^&]” în caseta de text „Înlocuiți cu”.
5. Apoi faceți clic pe „Înlocuiește tot”.
6. Următorul lucru pe care îl vedeți este că toate numerele notelor de subsol sunt între paranteze drepte. Faceți clic pe „OK” pentru a închide caseta de mesaj.

În plus, pentru a adăuga paranteze pătrate la notele de final, înlocuiți pur și simplu „^f” cu „^e” în casetele de text „Găsiți ce”.

Metoda 2: Executați Word Macro

1. În primul rând, apăsați „Alt+ F11” în Word pentru a declanșa editorul VBA.
2. Apoi faceți clic pe „Normal” și apoi pe fila „Inserare”.
3. În meniul derulant, alegeți „Modul”.
4. Apoi faceți dublu clic pe modulul nou introdus pentru a deschide zona de editare din partea dreaptă.
5. Și lipiți macrocomanda de mai jos acolo:

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. Acum plasați indicatorul de inserare în prima macrocomandă și faceți clic pe „Run”.
7. Apoi, mai întâi există o casetă de mesaj care spune că au fost adăugate paranteze pătrate la toate numerele notelor de subsol.
8. Urmează al doilea care spune că conversia este completă în toate numerele notelor de final.

Iată rezultatul pe care l-am obținut:

Preveniți pierderea documentelor

Cu date la fel de valoroase precum cele stocate, nu ne puteam permite să riscăm. Prin urmare, ar fi înțelept să faceți copii de rezervă ale fișierelor importante înainte de a lua orice mișcare cu risc potențial de a le distruge, dacă nu doriți să obțineți o deteriorat doc.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv corupția xls și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com