To'plamning 2 ta tezkor usuli Word hujjatingizdagi qayd raqamlariga kvadrat qavs qo'shing

Bugungi postda sizga Word hujjatingizdagi raqamlarga kvadrat qavslarni ommaviy qo'shishning 2 ta tezkor usulini ko'rsatib berishdan mamnunmiz.

Uzoq hujjat loyihasini tuzayotganda, biz izohlar va so'nggi izohlarni kiritishimiz mumkin. Biz bilamizki, mote raqamlari formati uchun variantlar mavjud. Biroq, kvadrat qavslar bilan o'rnatilgan raqam uslubi mavjud emas. Kelgusi matnlarda bunday muammoni hal qilishning 2 ta echimini muhokama qilamiz.

1-usul: "Topish va almashtirish" funksiyasidan foydalaning

1. Boshlash uchun maqsadli hujjatdagi "Bosh sahifa" yorlig'ini bosing.
2. Keyin "Tahrirlash" guruhidagi "O'zgartirish" buyrug'ini bosing va "Topish va almashtirish" dialog oynasini oching.
3. Endi siz izohlar bilan ishlayotgan bo'lsangiz, "Nimani toping" matn maydoniga "^ f" ni kiriting.
4. “Almashtirish” matn maydoniga “[^&]” kiriting.
5. Keyin "Hammasini almashtirish" tugmasini bosing.
6. Ko'rib turganingizdek, barcha izoh raqamlari kvadrat qavs ichida. Xabar oynasini yopish uchun "OK" tugmasini bosing.

Bundan tashqari, so'nggi izohlarga kvadrat qavslar qo'shish uchun "Nimani toping" matn maydonidagi "^f" ni "^e" bilan almashtiring.

2-usul: Word makrosini ishga tushiring

1. Avvalo, VBA muharririni ishga tushirish uchun Word dasturida "Alt + F11" tugmalarini bosing.
2. Keyin "Oddiy" ni va keyin "Qo'shish" yorlig'ini bosing.
3. Ochilgan menyuda "Modul" ni tanlang.
4. Keyin o'ng tarafdagi tahrirlash maydonini ochish uchun yangi kiritilgan modulni ikki marta bosing.
5. Va u erga quyidagi makroni joylashtiring:

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. Endi qo'shish ko'rsatkichini birinchi makrosga qo'ying va "Ishga tushirish" tugmasini bosing.
7. Keyin avval barcha izoh raqamlariga kvadrat qavslar qo'shilganligi haqida xabar oynasi paydo bo'ladi.
8. Keyin ikkinchisi barcha so'nggi raqamlarda konvertatsiya tugallanganligini aytadi.

Mana biz olgan natija:

Hujjatlarni yo'qotishning oldini olish

Saqlaganimizdek qimmatli ma'lumotlar bilan biz hech qanday tavakkal qila olmadik. Shuning uchun, muhim fayllarni har qanday harakatni amalga oshirishdan oldin zaxira nusxasini yaratish oqilona bo'lardi, agar siz ma'lumot olishni xohlamasangiz, ularni buzish xavfi mavjud. shikastlangan doc.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc xls buzilishi va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com