2 rychlé metody pro dávkování Přidávání hranatých závorek k zaznamenávání čísel v dokumentu Word

V dnešním příspěvku vám rádi ukážeme 2 rychlé metody, jak hromadně přidat hranaté závorky k číslům poznámek v dokumentu Word.

Kdykoli vytváříme dlouhý dokument, pravděpodobně do něj vložíme poznámky pod čarou a vysvětlivky. Víme, že existují možnosti pro formát čísla mobilního telefonu. Neexistuje však žádný vestavěný číselný styl s hranatými závorkami. V následujících textech budeme diskutovat o 2 řešeních k řešení takového problému.

Metoda 1: Využijte funkci „Najít a nahradit“

1. Nejprve klikněte v cílovém dokumentu na kartu „Domů“.
2. Poté klikněte na příkaz „Nahradit“ ve skupině „Úpravy“ a otevřete dialogové okno „Najít a nahradit“.
3. Nyní, pokud pracujete s poznámkami pod čarou, zadejte do textového pole „Najít co“ „^ f“.
4. Do textového pole „Nahradit za“ zadejte „[^ &]“.
5. Dále klikněte na „Nahradit vše“.
6. Další věc, kterou vidíte, je, že všechna čísla poznámek pod čarou jsou v hranatých závorkách. Kliknutím na „OK“ zavřete okno se zprávou.

Chcete-li navíc přidat hranaté závorky do poznámek, jednoduše v textových polích „Najít co“ nahraďte „^ f“ slovem „^ e“.

Metoda 2: Spusťte makro aplikace Word

1. V první řadě stiskněte ve Wordu klávesy „Alt+F11“ pro spuštění editoru VBA.
2. Dále klikněte na „Normální“ a poté na kartu „Vložit“.
3. V rozbalovací nabídce zvolte „Modul“.
4. Poté poklepejte na nově vložený modul a otevřete oblast úprav na pravé straně.
5. A vložte tam následující 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. Nyní vložte ukazatel vložení do prvního makra a klikněte na „Spustit“.
7. Nejprve se objeví okno se zprávou, že do všech čísel poznámek pod čarou byly přidány hranaté závorky.
8. Dále je tu druhý, který říká, že převod je dokončen ve všech číslech vysvětlivek.

Zde je výsledek, který jsme dostali:

Zabraňte ztrátě dokumentu

S tak cennými daty, jaké jsme ukládali, jsme si nemohli dovolit riskovat. Proto by bylo moudré zálohovat důležité soubory před provedením jakéhokoli pohybu s potenciálním rizikem jejich zničení, pokud nechcete získat poškozený doc.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně xls korupce a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com