Word hujjatingizdagi barcha xatcho'plarni ko'rsatishning 2 ta aqlli usuli

Ushbu maqolada biz sizga Word hujjatidagi barcha xatcho'plarni ko'rsatishning ikkita aqlli usulini taqdim qilmoqchimiz.

Vaqti-vaqti bilan biz keyinroq qayta ko'rib chiqmoqchi bo'lgan matn tanlovi uchun xatcho'p qo'yamiz. Ammo Word-dagi xatcho'pning tabiati uni aniqlashni qiyinlashtiradi. Boshqacha qilib aytganda, biz Word-dagi ba'zi variantlarni almashtirmasdan xatcho'plarni to'g'ridan-to'g'ri ko'ra olmaymiz.    

Ushbu maqola xatcho'plarni aniq ko'rishga yordam berishga bag'ishlangan. Siz mashq qilishning har qanday usulini tanlashingiz mumkin.

1-usul: Xatcho‘p qavslarini ko‘rsatish

1. Avvalo, lentadagi "Fayl" yorlig'ini bosing.
2. Keyin "So'z parametrlari" dialog oynasini ochish uchun "Options" tugmasini bosing.
3. Keyin chap ustundagi "Kengaytirilgan" ni bosing.
4. "Hujjat tarkibini ko'rsatish" bo'limiga pastga aylantiring va "Xatcho'plarni ko'rsatish" katagiga belgi qo'ying.
5. Nihoyat, o'zgartirishni saqlash uchun "OK" tugmasini bosing.

Endi xatcho'plar atrofida kvadrat qavslar mavjud. Siz bu qavslarning kulrang rangda ekanligini ko'rishingiz mumkin, bu ba'zan unchalik aniq emas. Va siz ularni oddiy kvadrat qavslar bilan aralashtirishingiz mumkin.

Shuning uchun biz sizga xatcho'plarni yaxshiroq ajratib ko'rsatish uchun so'lni tavsiya qilmoqchimiz.

2-usul: Bir nechta xatcho'plarni ajratib ko'rsatish

1. Boshlash uchun VBA muharririni ishga tushirish uchun “Alt+ F11” tugmasini bosing.
2. Keyin "Oddiy loyiha" tugmasini bosing.
3. Keyin menyu panelidagi "Qo'shish" yorlig'ini bosing va ochiladigan menyuda "Modul" ni tanlang.
4. Va o'ng tomonda tahrirlash joyini ochish uchun yangi modulni ikki marta bosing.
5. U erga quyidagi makrosni joylashtiring:

Sub HighlightBookmarkedItemsInADoc()
  Dim objBookmark As Bookmark
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objBookmark In .Bookmarks
      objBookmark.Range.HighlightColorIndex = wdBrightGreen
    Next objBookmark
  End With
  Application.ScreenUpdating = True
End Sub

6. Va nihoyat, "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.

Ko'rib turganingizdek, barcha xatcho'plar yashil rangda ta'kidlangan, masalan:

Yuqoridagi so'l joriy faol hujjatdagi barcha xatcho'plarni ajratib ko'rsatish. Agar qayta ishlash uchun bir nechta hujjatlar mavjud bo'lsa, uning o'rniga sizga ushbu makros kerak bo'ladi:

Sub HighlightBookmarkedItemsInMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "You need to select a folder first!"
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    Set objDoc = ActiveDocument
    With objDoc
      For Each objBookmark In .Bookmarks
        objBookmark.Range.HighlightColorIndex = wdBrightGreen
      Next objBookmark
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
 Wend
End Sub

Ushbu makroni ishga tushirishdan oldin, barcha maqsadli hujjatlarni bitta papkaga joylashtirishingiz kerak. Va makroni ishga tushirish "Ko'rib chiqish" oynasini ishga tushiradi. Hujjatlaringizni saqlaydigan papkani tanlang.

Hujjatlarni ta'mirlash uchun yordamchi dastur

Agar duch kelsangiz So'zning shikastlanishi, kompyuteringizdan ba'zi muhim ma'lumotlarni o'chirib tashlashi ehtimoli yuqori. Agar sizda eng so'nggi zaxira nusxasi bo'lsa, bu katta ish bo'lmasligi mumkin. Biroq, agar bo'lmasa, darhol ta'mirlash vositasi kerak bo'ladi.

Muallif kirish:

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