Word hujjatingizdan alohida ta'kidlash rangini qanday olib tashlash mumkin

Bugungi postda biz siz bilan Word hujjatingizdan ma'lum bir rangni olib tashlashning samarali usulini baham ko'rishdan mamnunmiz.

Avvalgi maqolalarimizdan birida biz yorqin ranglarni olib tashlash usullari haqida gapirgan edik. Batafsil ma'lumot uchun ushbu havolaga murojaat qilishingiz mumkin: Word hujjatingizdagi ta'kidlash yoki soyani olib tashlashning 5 ta usuli

Bugun, hujjatda har xil turdagi tarkibni ajratib ko'rsatish uchun bir nechta ta'kidlash ranglari bo'lishi mumkin bo'lgan boshqa holatni ko'rib chiqaylik. Bunday holda, odatiy usullar bitta aniq ta'kidlash rangini taniy olmaydi. Aslida, yagona tez va samarali usul Word makrosini ishga tushirishdir.

Endi quyidagi yondashuvni ko'rib chiqing.

VBA orqali alohida ta'kidlash rangini olib tashlang

1. Avvalo, lentada "Dasturchi" yorlig'ini bosing.
2. Keyin Word-da VBA muharririni ishga tushirish uchun "Visual Basic" tugmasini bosing. Va sizda "Dasturchi" yorlig'i hali mavjud emasligini hisobga olsak, uning o'rniga "Alt + F11" tugmasini bosishingiz mumkin.
3. Keyin muharrirning chap ustunidagi "Oddiy" loyihani bosing.
4. Keyin menyu panelidagi "Qo'shish" yorlig'ini bosing.
5. Ochilgan menyuda "Modul" ni tanlang.
6. Endi kodlash maydonini ochish uchun yangi modulni ikki marta bosing.
7. Modulga quyidagi makrosni joylashtiring:

Sub RemoveSpecificHighlightColor()
  Dim objDoc As Document
  Dim objRange As Range
  Dim strHighlightColor As String
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strHighlightColor = InputBox("Choose a Highlight colour to remove (enter the value):" & vbNewLine & _
                      vbTab & "Auto" & vbTab & vbTab & "0" & vbNewLine & _
                      vbTab & "Black" & vbTab & vbTab & "1" & vbNewLine & _
                      vbTab & "Blue" & vbTab & vbTab & "2" & vbNewLine & _
                      vbTab & "BrightGreen" & vbTab & "4" & vbNewLine & _
                      vbTab & "DarkBlue" & vbTab & vbTab & "9" & vbNewLine & _
                      vbTab & "DarkRed" & vbTab & vbTab & "13" & vbNewLine & _
                      vbTab & "DarkYellow" & vbTab & "14" & vbNewLine & _
                      vbTab & "Gray25" & vbTab & vbTab & "16" & vbNewLine & _
                      vbTab & "Gray50" & vbTab & vbTab & "15" & vbNewLine & _
                      vbTab & "Green" & vbTab & vbTab & "11" & vbNewLine & _
                      vbTab & "Pink" & vbTab & vbTab & "5" & vbNewLine & _
                      vbTab & "Red" & vbTab & vbTab & "6" & vbNewLine & _
                      vbTab & "Teal" & vbTab & vbTab & "10" & vbNewLine & _
                      vbTab & "Turquoise" & vbTab & "3" & vbNewLine & _
                      vbTab & "Violet" & vbTab & vbTab & "12" & vbNewLine & _
                      vbTab & "White" & vbTab & vbTab & "8" & vbNewLine & _
                      vbTab & "Yellow" & vbTab & vbTab & "7", "Highlight Color")
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
 
      Do While .Execute
        If Selection.Range.HighlightColorIndex = strHighlightColor Then
          Set objRange = Selection.Range
          objRange.HighlightColorIndex = wdNoHighlight
          Selection.Collapse wdCollapseEnd
        End If
      Loop
    End With
  End With
 
  MsgBox ("The chosen highlight color has been removed in the document.")
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

8. Keyin kodlarni bajarish uchun "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.
9. Keyinchalik, "Rangni ta'kidlash" oynasi mavjud. Har bir rang uchun qiymat bor. Faqat olib tashlanadigan ta'kidlash rangi bilan bog'liq qiymatni kiriting.
10. Va nihoyat, davom etish uchun "OK" tugmasini bosing.
11. Ish tugagach, siz shunday xabar qutisini olasiz:

Bu erda mumkin bo'lgan natija:

Maʼlumotlaringizni xavfsiz saqlang

Ma'lumotlar yaxlitligi osongina buzilishi mumkin. Hammasi juda kech bo'lishidan oldin profilaktika choralarini ko'rish vaqti keldi. Masalan, eng tavsiya etilgan usul - fayllarni muntazam ravishda zaxiralash. Kutilmagan biror narsa yuz berganda, har doim murojaat qilish uchun eng so'nggi versiyasiga ega ekanligingizga ishonch hosil qiling. Aks holda, siz quyidagilarni amalga oshirishingiz kerak bo'ladi So'zni tiklash ma'lumotlarni qaytarib olish uchun.

Muallif kirish:

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