2 brze metode za grupno dodavanje uglatih zagrada u brojeve bilješki u vašem Word dokumentu

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

Kad god sastavljamo dugačak dokument, vjerojatno ćemo umetnuti fusnote i bilješke. Znamo da postoje opcije za format broja mote. Međutim, ne postoji ugrađeni stil brojeva s uglatim zagradama. Ono o čemu ćemo raspravljati u nadolazećim tekstovima su 2 rješenja za rješavanje takvog problema.

Metoda 1: Koristite funkciju "Pronađi i zamijeni".

1. Za početak kliknite karticu "Početna" u ciljnom dokumentu.
2. Zatim kliknite naredbu “Zamijeni” u grupi “Uređivanje” da biste otvorili dijaloški okvir “Pronađi i zamijeni”.
3. Sada, ako radite s fusnotama, unesite "^f" u tekstni okvir "Pronađi što".
4. Unesite “[^&]” u tekstni okvir “Zamijeni sa”.
5. Zatim kliknite "Zamijeni sve".
6. Sljedeće što vidite je da su svi brojevi fusnota u uglatim zagradama. Pritisnite “OK” da zatvorite okvir s porukom.

Osim toga, da biste dodali uglate zagrade u bilješke, jednostavno zamijenite "^f" s "^e" u tekstnim okvirima "Pronađi što".

Metoda 2: Pokrenite Word Macro

1. Prvo i najvažnije, pritisnite "Alt + F11" u Wordu da biste pokrenuli VBA editor.
2. Zatim kliknite "Normalno", a zatim karticu "Umetni".
3. Na padajućem izborniku odaberite "Modul".
4. Zatim dvaput kliknite na novoumetnuti modul kako biste otvorili područje za uređivanje s desne strane.
5. I tamo zalijepite makronaredbu ispod:

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 prve makronaredbe i kliknite "Pokreni".
7. Prvo se pojavljuje okvir s porukom koji govori da su uglate zagrade dodane svim brojevima fusnota.
8. Sljedeći je drugi koji kaže da je pretvorba završena u svim brojevima završnih bilješki.

Ovo je rezultat koji smo dobili:

Spriječite gubitak dokumenata

Uz podatke vrijedne poput onoga što smo pohranili, nismo si mogli priuštiti da riskiramo. Stoga bi bilo mudro napraviti sigurnosnu kopiju važnih datoteka prije nego poduzmete bilo kakav potez s potencijalnim rizikom da ih uništite, osim ako ne želite dobiti oštećeni dok.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xls korupcija i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com