2 gyors módszer a kötegelt szögletes zárójelek hozzáadásához a Word-dokumentumban lévő jegyzetszámokhoz

A mai bejegyzésben örömmel mutatunk be 2 gyors módszert, amelyekkel kötegelt módon adhatsz hozzá szögletes zárójeleket a Word-dokumentumban lévő jegyzetszámokhoz.

Amikor hosszú dokumentumot készítünk, valószínűleg lábjegyzeteket és végjegyzeteket szúrunk be. Tudjuk, hogy vannak lehetőségek a mote számformátumra. Azonban nincs beépített számstílus szögletes zárójelekkel. A következő szövegekben megvitatjuk a két megoldást egy ilyen probléma kezelésére.

1. módszer: Használja a „Keresés és csere” funkciót

1. Először kattintson a „Kezdőlap” fülre a céldokumentumban.
2. Ezután kattintson a „Csere” parancsra a „Szerkesztés” csoportban a „Keresés és csere” párbeszédpanel megnyitásához.
3. Most, ha lábjegyzetekkel dolgozik, írja be a „^f” értéket a „Mit keres” szövegmezőbe.
4. Írja be a „[^&]” szöveget a „Csere erre” szövegmezőbe.
5. Ezután kattintson az „Összes cseréje” gombra.
6. A következő dolog, amit látni fog, az az, hogy minden lábjegyzetszám szögletes zárójelben van. Kattintson az „OK” gombra az üzenetmező bezárásához.

Ezenkívül, ha szögletes zárójeleket szeretne hozzáadni a végjegyzetekhez, egyszerűen cserélje ki a „^f” karaktert „^e”-re a „Mit keres” szövegmezőkben.

2. módszer: Futtassa a Word makrót

1. Először is, nyomd meg az „Alt+F11” billentyűkombinációt a Wordben a VBA szerkesztő elindításához.
2. Ezután kattintson a „Normál”, majd a „Beszúrás” fülre.
3. A legördülő menüben válassza a „Modul” lehetőséget.
4. Ezután kattintson duplán az újonnan beillesztett modulra a jobb oldalon található szerkesztési terület megnyitásához.
5. És illessze be az alábbi makrót:

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. Most helyezze a beszúrási mutatót az első makróba, és kattintson a „Futtatás” gombra.
7. Ezután először megjelenik egy üzenetdoboz, amely szerint a lábjegyzetek minden számához szögletes zárójelet adtak.
8. Ezután következik a második, amely szerint az átalakítás minden végjegyzetszámban befejeződött.

Íme az eredmény, amit kaptunk:

Megakadályozza a dokumentumvesztést

Mivel az adatok olyan értékesek, mint amit tároltunk, nem engedhettük meg magunknak, hogy kockáztassunk. Ezért bölcs dolog lenne biztonsági másolatot készíteni a fontos fájlokról, mielőtt bármilyen lépést tenne, mert fennáll annak a veszélye, hogy tönkreteheti őket, hacsak nem szeretne sérült doki.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xls korrupció és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com