2 brze metode za grupno dodavanje uglastih zagrada da zabilježite brojeve u vašem Word dokumentu

U današnjem postu, drago nam je što vam možemo pokazati dvije brze metode za grupno dodavanje uglatih zagrada brojevima bilješki u vašem Word dokumentu.

Kad god pravimo dug dokument, vjerovatno ćemo umetnuti fusnote i endnote. Znamo da postoje opcije za format broja mote. Međutim, ne postoji ugrađeni stil brojeva sa uglastim zagradama. Ono o čemu ćemo govoriti u narednim tekstovima su 2 rješenja za rješavanje takvog problema.

Metoda 1: Koristite funkciju “Pronađi i zamijeni”.

1. Za početak, kliknite na karticu "Početna" u ciljnom dokumentu.
2. Zatim kliknite na komandu “Zamijeni” u grupi “Uređivanje” da otvorite dijaloški okvir “Pronađi i zamijeni”.
3. Sada ako radite sa fusnotama, unesite “^f” u tekstualni okvir “Pronađi šta”.
4. Unesite “[^&]” u tekstualni okvir “Zamijeni sa”.
5. Zatim kliknite na "Zamijeni sve".
6. Sljedeće što vidite je da su svi brojevi fusnota u uglastim zagradama. Kliknite na “OK” da zatvorite okvir za poruku.

Osim toga, da dodate uglaste zagrade krajnjim bilješkama, jednostavno zamijenite “^f” sa “^e” u tekstualnim okvirima “Pronađi šta”.

Metoda 2: Pokrenite Word makro

1. Prvo i najvažnije, pritisnite "Alt+F11" u Wordu da biste pokrenuli VBA editor.
2. Zatim kliknite na "Normal", a zatim na karticu "Insert".
3. Na padajućem izborniku odaberite "Modul".
4. Zatim dvaput kliknite na novo umetnuti modul da otvorite područje za uređivanje na desnoj strani.
5. I zalijepite tamo makro:

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. Sada postavite pokazivač umetanja unutar prvog makroa i kliknite na “Run”.
7. Zatim prvo postoji okvir sa porukom koji kaže da su uglaste zagrade dodane svim brojevima fusnota.
8. Sljedeći je drugi koji kaže da je konverzija završena u svim brojevima završnih bilješki.

Evo rezultata koji smo dobili:

Spriječite gubitak dokumenata

Sa podacima vrijednim kao što smo pohranili, nismo mogli priuštiti rizik. Stoga bi bilo mudro napraviti sigurnosnu kopiju važnih datoteka prije bilo kakvog poteza s potencijalnim rizikom da ih uništite osim ako ne želite da dobijete oštećena doc.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xls corruption i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com