2 greiti metodai, kaip sudėti laužtinius skliaustus prie pastabų skaičių savo Word dokumente

Šiandienos įraše džiaugiamės galėdami parodyti 2 greitus metodus, kaip paketiniu būdu pridėti laužtinius skliaustus prie užrašų numerių „Word“ dokumente.

Tikėtina, kad kurdami ilgą dokumentą įterpsime išnašas ir pabaigas. Žinome, kad yra „mote“ skaičiaus formato parinkčių. Tačiau nėra įmontuoto skaičių stiliaus su laužtiniais skliaustais. Kituose tekstuose aptarsime du sprendimus, kaip išspręsti tokią problemą.

1 būdas: naudokite funkciją „Rasti ir pakeisti“.

1. Norėdami pradėti, tiksliniame dokumente spustelėkite skirtuką „Pagrindinis“.
2. Tada grupėje „Redagavimas“ spustelėkite komandą „Pakeisti“, kad atidarytumėte dialogo langą „Rasti ir pakeisti“.
3. Dabar, jei dirbate su išnašomis, teksto laukelyje „Rasti ką“ įveskite „^f“.
4. Įveskite „[^&]“ teksto laukelyje „Pakeisti į“.
5. Tada spustelėkite „Pakeisti viską“.
6. Kitas dalykas, kurį matote, yra tai, kad visi išnašų numeriai yra laužtiniuose skliaustuose. Spustelėkite „Gerai“, kad uždarytumėte pranešimo laukelį.

Be to, norėdami pridėti laužtinius skliaustus prie pastabų, tiesiog pakeiskite „^f“ į „^e“ teksto laukeliuose „Rasti ką“.

2 būdas: paleiskite Word makrokomandą

1. Visų pirma, „Word“ programoje paspauskite „Alt + F11“, kad paleistumėte VBA redaktorių.
2. Tada spustelėkite „Įprastas“, tada – skirtuką „Įterpti“.
3. Išskleidžiamajame meniu pasirinkite „Modulis“.
4. Tada dukart spustelėkite naujai įdėtą modulį, kad atidarytumėte redagavimo sritį dešinėje.
5. Ir įklijuokite toliau pateiktą makrokomandą:

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. Dabar įdėkite įterpimo žymeklį į pirmąją makrokomandą ir spustelėkite „Vykdyti“.
7. Tada pirmiausia yra pranešimų laukelis, kuriame rašoma, kad prie visų išnašų numerių buvo pridėti laužtiniai skliaustai.
8. Kitas yra antrasis, kuriame sakoma, kad konvertavimas baigtas visuose galūnių numeriuose.

Štai kokį rezultatą gavome:

Apsaugokite nuo dokumentų praradimo

Turėdami tokius vertingus duomenis kaip ir saugomi, negalėjome sau leisti rizikuoti. Todėl būtų protinga prieš imantis bet kokių veiksmų pasidaryti atsargines svarbių failų kopijas, nes gali kilti pavojus juos sugadinti, nebent norite gauti sugadintas doc.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant xls korupcija bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com