2 rýchle metódy na dávkovanie Pridávanie hranatých zátvoriek na zaznamenávanie čísel do dokumentu Word

V dnešnom príspevku vám radi ukážeme 2 rýchle metódy na hromadné pridávanie hranatých zátvoriek k číslam poznámok v dokumente programu Word.

Pri vytváraní dlhého dokumentu pravdepodobne vložíme poznámky pod čiarou a poznámky pod čiarou. Vieme, že existujú možnosti pre formát čísla mobilného telefónu. Neexistuje však žiadny vstavaný číselný štýl s hranatými zátvorkami. V nasledujúcich textoch budeme diskutovať o dvoch riešeniach riešenia tejto otázky.

Metóda 1: Využite funkciu „Nájsť a nahradiť“

1. Najprv kliknite v cieľovom dokumente na kartu „Domov“.
2. Potom kliknite na príkaz „Nahradiť“ v skupine „Úpravy“, čím sa otvorí dialógové okno „Nájsť a nahradiť“.
3. Ak teraz pracujete s poznámkami pod čiarou, zadajte do textového poľa „Čo nájdete“ „^ f“.
4. Do textového poľa „Nahradiť za“ zadajte „[^ &]“.
5. Ďalej kliknite na „Nahradiť všetko“.
6. Ďalšia vec, ktorú uvidíte, je, že všetky čísla poznámok pod čiarou sú v hranatých zátvorkách. Kliknutím na tlačidlo „OK“ zavrite okno so správou.

Ak chcete do koncových poznámok pridať hranaté zátvorky, jednoducho do textových polí „Nájsť čo“ nahraďte „^ f“ za „^ e“.

Metóda 2: Spustenie makra programu Word

1. V prvom rade stlačte v programe Word kombináciu klávesov „Alt + F11“, čím spustíte editor VBA.
2. Ďalej kliknite na „Normálny“ a potom na kartu „Vložiť“.
3. V rozbaľovacej ponuke zvoľte možnosť Modul.
4. Potom dvakrát kliknite na novo vložený modul, aby ste otvorili oblasť úprav na pravej strane.
5. A vložte tam nasledujúce 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. Teraz vložte ukazovateľ vloženia do prvého makra a kliknite na „Spustiť“.
7. Potom sa najskôr zobrazí okno so správou, v ktorom sa uvádza, že do všetkých čísel poznámok pod čiarou boli pridané hranaté zátvorky.
8. Ďalej je tu druhý, ktorý hovorí, že konverzia je dokončená vo všetkých počtoch poznámok.

Máme tu výsledok:

Zabráňte strate dokumentu

Keďže údaje boli rovnako cenné ako to, čo sme ukladali, nemohli sme si dovoliť riskovať. Preto by bolo rozumné zálohovať dôležité súbory skôr, ako urobíte akýkoľvek krok s potenciálnym rizikom ich zničenia, pokiaľ nechcete získať poškodený doc.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane xls korupcia a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S