2 Mabilis na Paraan upang Batch Magdagdag ng Mga Square Bracket upang Tandaan ang Mga Numero sa Iyong Dokumento ng Salita

Sa post ngayon, natutuwa kaming ipakita sa iyo ang 2 mabilis na paraan para magdagdag ng mga square bracket nang maramihan para tandaan ang mga numero sa iyong Word document.

Kailan man mag-draft ng isang mahabang dokumento, malamang na maglagay kami ng mga footnote at endnote. Alam namin na may mga pagpipilian para sa format ng numero ng mote. Gayunpaman, walang built-in na istilo ng numero na may mga square bracket. Ang tatalakayin natin sa mga darating na teksto ay ang 2 solusyon upang matugunan ang naturang isyu.

Paraan 1: Gumamit ng "Maghanap at Palitan" na Pag-andar

1. Upang magsimula, i-click ang tab na "Home" sa target na dokumento.
2. Pagkatapos i-click ang utos na "Palitan" sa pangkat na "Pag-edit" upang buksan ang dialog box na "Hanapin at Palitan".
3. Ngayon kung nagtatrabaho ka sa mga talababa, ipasok ang "^ f" sa "Hanapin kung ano" ang kahon ng teksto.
4. Ipasok ang "[^ &]" sa text box na "Palitan ng".
5. Susunod na pag-click sa "Palitan ang Lahat".
6. Ang susunod na nakikita mo ay ang lahat ng mga numero sa talababa ay nasa parisukat na mga braket. I-click ang "OK" upang isara ang kahon ng mensahe.

Bukod, upang magdagdag ng mga square bracket sa mga endnote, palitan lamang ang "^ f" ng "^ e" sa "Hanapin kung ano" ang mga kahon ng teksto.

Paraan 2: Patakbuhin ang Word Macro

1. Una sa lahat, pindutin ang "Alt + F11" sa Word upang ma-trigger ang VBA editor.
2. Susunod na pag-click sa "Normal" at pagkatapos ay ang tab na "Ipasok".
3. Sa drop-down na menu, piliin ang "Modyul".
4. Pagkatapos mag-double click sa bagong ipinasok na module upang buksan ang lugar ng pag-edit sa kanang bahagi.
5. At i-paste ang bellowing macro doon:

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. Ngayon ilagay ang pointer ng pagpapasok sa loob ng unang macro at i-click ang "Run".
7. Pagkatapos una mayroong isang kahon ng mensahe na nagsasabing ang mga square bracket ay naidagdag sa lahat ng mga numero sa talababa.
8. Susunod mayroong pangalawa na nagsasabing ang conversion ay kumpleto sa lahat ng mga numero ng endnote.

Narito ang resulta na nakuha namin:

Pigilan mula sa Pagkawala ng Dokumento

Sa data na kasing halaga ng naimbak namin, hindi namin kayang gumawa ng anumang mga pagkakataon. Samakatuwid, magiging matalino na i-back up ang mahahalagang file bago gumawa ng anumang paglipat na may potensyal na peligro na mapahamak ang mga ito maliban kung nais mong makakuha ng nasira doc.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang xls katiwalian at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa