2 Metoda të shpejta për të grumbulluar Shtoni kllapa katrore te numrat e shënimeve në dokumentin tuaj Word

Në faqen e sotmeost, jemi të lumtur t'ju tregojmë 2 metoda të shpejta për të shtuar kllapa katrore në grup për të shënuar numrat në dokumentin tuaj Word.

Sa herë që hartojmë një dokument të gjatë, ka të ngjarë të fusim fusnota dhe shënime fundore. Ne e dimë se ka opsione për formatin e numrit të motit. Megjithatë, nuk ka një stil të integruar të numrave me kllapa katrore. Ajo që do të diskutojmë në tekstet e ardhshme janë 2 zgjidhjet për të adresuar një çështje të tillë.

Metoda 1: Përdorni funksionin "Gjeni dhe zëvendësoni".

1. Për të filluar, klikoni në skedën "Home" në tarmerrni dokument.
2. Pastaj klikoni komandën "Zëvendësoni" në grupin "Redaktimi" për të hapur kutinë e dialogut "Gjeni dhe zëvendësoni".
3. Tani nëse jeni duke punuar me fusnota, shkruani "^f" në kutinë e tekstit "Gjeni çfarë".
4. Futni "[^&]" në kutinë e tekstit "Zëvendëso me".
5. Pastaj klikoni "Zëvendësoni të gjitha".
6. Gjëja tjetër që shihni është se të gjithë numrat e fusnotës janë në kllapa katrore. Klikoni "OK" për të mbyllur kutinë e mesazheve.

Përveç kësaj, për të shtuar kllapa katrore në shënimet fundore, thjesht zëvendësoni "^f" me "^e" në kutitë e tekstit "Gjeni çfarë".

Metoda 2: Ekzekutoni Word Macro

1. E para dhe e paraost, shtypni "Alt+ F11" në Word për të aktivizuar redaktorin VBA.
2. Pastaj klikoni "Normal" dhe më pas skedën "Fut".
3. Në menunë rënëse, zgjidhni "Modul".
4. Pastaj klikoni dy herë në modulin e sapofutur për të hapur zonën e redaktimit në anën e djathtë.
5. Dhe ngjisni makronë vijuese atje:

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. Tani vendosni treguesin e futjes brenda makros së parë dhe klikoni "Run".
7. Pastaj së pari ka një kuti mesazhi që thotë se kllapat katrore janë shtuar në të gjithë numrat e fusnotës.
8. Më pas është i dyti që thotë se konvertimi është i plotë në të gjithë numrat e shënimeve fundore.

Këtu është rezultati që kemi marrë:

Parandaloni humbjen e dokumentit

Me të dhëna po aq të vlefshme sa ato që kemi ruajtur, nuk mund të përballonim të rrezikonim. Prandaj, do të ishte e mençur të bëni kopje rezervë të skedarëve të rëndësishëm përpara se të ndërmerrni ndonjë lëvizje me rrezik potencial për t'i prishur ato, përveç nëse dëshironi të merrni një i dëmtuar doc.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë xls korrupsion pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com