2 kiiret meetodit partiimiseks Lisage oma Wordi dokumendis märkuste numbritele nurksulud

Tänases postituses on meil hea meel näidata teile kahte kiiret meetodit, kuidas Wordi dokumendis märkmete numbritele partiidena nurksulge lisada.

Pika dokumendi koostamisel lisame tõenäoliselt joonealuseid ja lõpumärkusi. Teame, et mote numbrivormingu jaoks on valikuid. Siiski pole nurksulgudega sisseehitatud numbristiili. Järgmistes tekstides käsitleme kahte lahendust sellise probleemi lahendamiseks.

1. meetod: kasutage funktsiooni Otsi ja asenda

1. Alustamiseks klõpsake sihtdokumendis vahekaarti „Avaleht”.
2. Seejärel klõpsake rühmas "Redigeerimine" käsku "Asenda", et avada dialoogiboks "Otsi ja asenda".
3. Nüüd, kui töötate allmärkustega, sisestage tekstiväljale „Otsi mis” „^f”.
4. Sisestage "[^&]" tekstiväljale "Asenda".
5. Järgmisena klõpsake nuppu "Asenda kõik".
6. Järgmine asi, mida näete, on see, et kõik joonealuste märkuste numbrid on nurksulgudes. Teatekasti sulgemiseks klõpsake "OK".

Peale selle asendage lõpumärkustele nurksulgude lisamiseks tekstiväljades „Otsi mis” lihtsalt „^f” tähega „^e”.

2. meetod: käivitage Wordi makro

1. Esiteks ja kõige tähtsam on VBA redaktori käivitamiseks Wordis vajutada klahvikombinatsiooni „Alt + F11”.
2. Järgmisena klõpsake nuppu "Tavaline" ja seejärel vahekaarti "Lisa".
3. Valige rippmenüüst "Moodul".
4. Seejärel topeltklõpsake äsja sisestatud moodulil, et avada parempoolses redigeerimisala.
5. Ja kleepige sinna järgmine 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. Nüüd asetage sisestuskursor esimese makro sisse ja klõpsake nuppu "Käivita".
7. Seejärel kuvatakse kõigepealt sõnumikast, mis ütleb, et kõikidele joonealuste märkuste numbritele on lisatud nurksulud.
8. Järgmine on teine, mis ütleb, et teisendamine on kõigi lõpumärkuste numbrite puhul lõpetatud.

Siin on tulemus, mille saime:

Vältida dokumentide kadumist

Kuna andmed on sama väärtuslikud kui meie salvestatud andmed, ei saanud me endale lubada riskida. Seetõttu oleks mõistlik enne mis tahes liikumist varundada olulised failid, mis võivad need rikkuda, välja arvatud juhul, kui soovite kahjustatud dok.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas xls korruptsioon ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom