2 hitri metodi za skupinsko dodajanje oglatih oklepajev k številkam opomb v vašem Wordovem dokumentu

V današnjem strost, vam z veseljem pokažemo 2 hitri metodi za množično dodajanje oglatih oklepajev k številkam opomb v vašem dokumentu Word.

Kadarkoli sestavljamo dolg dokument, bomo verjetno vstavili sprotne in končne opombe. Vemo, da obstajajo možnosti za obliko številke mote. Vendar pa ni vgrajenega sloga številk z oglatimi oklepaji. V prihodnjih besedilih bomo razpravljali o 2 rešitvah za reševanje takšne težave.

1. način: Uporabite funkcijo »Najdi in zamenjaj«.

1. Za začetek kliknite zavihek »Domov« v tardobiti dokument.
2. Nato kliknite ukaz »Zamenjaj« v skupini »Urejanje«, da odprete pogovorno okno »Najdi in zamenjaj«.
3. Zdaj, če delate s sprotnimi opombami, v besedilno polje »Najdi kaj« vnesite »^f«.
4. V besedilno polje »Zamenjaj z« vnesite »[^&]«.
5. Nato kliknite »Zamenjaj vse«.
6. Naslednja stvar, ki jo vidite, je, da so vse številke sprotnih opomb v oglatih oklepajih. Kliknite »V redu«, da zaprete okno s sporočilom.

Poleg tega, če želite končnim opombam dodati oglate oklepaje, preprosto zamenjajte »^f« z »^e« v besedilnih poljih »Najdi kaj«.

2. način: zaženite Wordov makro

1. Prvič in foremost, v Wordu pritisnite »Alt+ F11«, da sprožite urejevalnik VBA.
2. Nato kliknite »Normalno« in nato zavihek »Vstavi«.
3. V spustnem meniju izberite »Modul«.
4. Nato dvakrat kliknite na novo vstavljeni modul, da odprete območje za urejanje na desni strani.
5. In tja prilepite spodnji 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. Zdaj postavite kazalec za vstavljanje v prvi makro in kliknite »Zaženi«.
7. Nato se najprej prikaže okno s sporočilom, da so vsem številkam sprotnih opomb dodani oglati oklepaji.
8. Sledi drugi, ki pravi, da je pretvorba končana v vseh številkah končnih opomb.

Tukaj je rezultat, ki smo ga dobili:

Preprečite izgubo dokumentov

Ker so podatki tako dragoceni, kot so shranjeni, si nismo mogli privoščiti nobenega tveganja. Zato bi bilo pametno varnostno kopirati pomembne datoteke, preden naredite kakršno koli potezo, ki bi lahko povzročila njihovo uničenje, razen če želite pridobiti poškodovan dok.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z xls korupcija in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com