2 ātrās paņēmienu sērijas pievienošana kvadrātiekavās, lai piezīmju numurus pievienotu jūsu Word dokumentam

Šodienas ierakstā mēs ar prieku parādīsim jums 2 ātras metodes, kā Word dokumentā pievienot kvadrātiekavas piezīmju numuriem partijās.

Kad tiek sastādīts garš dokuments, mēs, visticamāk, ievietosim zemsvītras piezīmes un gala piezīmes. Mēs zinām, ka ir iespējas mote numura formātam. Tomēr nav iebūvēta skaitļa stila ar kvadrātiekavām. Tas, ko mēs apspriedīsim nākamajos tekstos, ir 2 risinājumi, kā risināt šādu jautājumu.

1. metode: izmantojiet funkciju “Atrast un aizstāt”

1. Lai sāktu, mērķa dokumentā noklikšķiniet uz cilnes “Sākums”.
2. Pēc tam grupā “Rediģēšana” noklikšķiniet uz “Aizstāt”, lai atvērtu dialoglodziņu “Atrast un aizstāt”.
3. Ja strādājat ar zemsvītras piezīmēm, tekstlodziņā “Atrast ko” ievadiet “^ f”.
4. Teksta lodziņā “Aizstāt ar” ievadiet “[^ &]”.
5. Pēc tam noklikšķiniet uz “Aizstāt visu”.
6. Nākamais, ko redzat, ir tas, ka visi zemsvītras piezīmes ir iekavās. Noklikšķiniet uz “OK”, lai aizvērtu ziņojumu lodziņu.

Turklāt, lai gala piezīmēm pievienotu kvadrātiekavas, tekstlodziņos “Atrodi ko” vienkārši aizstājiet “^ f” ar “^ e”.

2. metode: palaidiet Word Macro

1. Pirmkārt un galvenokārt, nospiediet taustiņu kombināciju “Alt+F11” programmā Word, lai aktivizētu VBA redaktoru.
2. Pēc tam noklikšķiniet uz “Normal” un pēc tam uz cilnes “Insert”.
3. Nolaižamajā izvēlnē izvēlieties “Modulis”.
4. Pēc tam veiciet dubultklikšķi uz nesen ievietotā moduļa, lai labajā pusē atvērtu rediģēšanas apgabalu.
5. Un tur ielīmējiet silto 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. Tagad ievietojiet ievietošanas rādītāju pirmajā makro un noklikšķiniet uz “Run”.
7. Tad vispirms ir ziņojumu lodziņš, kurā teikts, ka visiem zemsvītras piezīmju numuriem ir pievienotas kvadrātiekavas.
8. Tālāk ir otrais, sakot, ka konvertēšana ir pabeigta visos gala piezīmju numuros.

Šis ir rezultāts, ko mēs saņēmām:

Novērst dokumentu zaudēšanu

Tā kā dati ir tikpat vērtīgi kā glabātie, mēs nevarējām atļauties riskēt. Tāpēc būtu prātīgi dublēt svarīgus failus pirms jebkādas kustības ar iespējamu to sabojāšanas risku, ja vien nevēlaties iegūt sabojāts dok.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp xls korupcija un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar