Word hujjatingizdagi ta'kidlash rangini almashtirishning 2 ta foydali usuli

Ushbu maqolada biz sizga Word hujjatidagi ta'kidlash rangini almashtirishning ikkita foydali usulini ko'rsatishdan mamnunmiz.

Ba'zan siz turli xil tarkibni turli xil ranglar bilan ta'kidlashingiz mumkin. Ammo shrift rangidan farqli o'laroq, siz ma'lum bir rangdagi matnlarni topish va uni boshqasiga almashtirish uchun "Topish va almashtirish" dan foydalana olmaysiz.

Shuning uchun, bizga vaqtinchalik echimlar kerak bo'ladi. Quyida turli holatlar uchun 2 ta usul mavjud.

1-usul: Barcha yorqin ranglarni bir xil rangga almashtiring

"Topish va almashtirish" dialog oynasi bilan bog'liq bo'lgan ta'kidlash rangi joriy belgida tanlangan rangdir.

1. Avvalo, "Uy" yorlig'ida va "Shrift" guruhida "Matnni ajratib ko'rsatish rangi" buyrug'idagi ochiladigan tugmani bosing. Barcha ta'kidlash ranglarini o'zgartirmoqchi bo'lgan rangni tanlang. Misol uchun, biz bu erda "Yorqin yashil" ni tanlaymiz.
2. Keyin "Topish va almashtirish" dialog oynasini ishga tushirish uchun "Ctrl + H" tugmasini bosing.
3. Kursorni "Nimani toping" matn maydoniga qo'ying.
4. Ko'proq variantlarni ochish uchun "Ko'proq" tugmasini bosing va "Format" tugmasini bosing.
5. Va "Ta'kidlash" ni tanlang.
6. Keyin kursorni "Almashtirish" maydoniga qo'ying va 4 va 5-bosqichlarni takrorlang.
7. Nihoyat, "Hammasini almashtirish" tugmasini bosing.

Endi siz barcha yorqin ranglarni yorqin yashil rangga almashtirdingiz.

2-usul: Alohida ta'kidlash rangini boshqasiga almashtiring

Ushbu vazifani bajarish uchun makro kerak.

1. Avvalo, VBA muharririni ochish uchun "Alt + F11" tugmalarini bosing.
2. Keyin chap ustundagi "Oddiy" loyihani bosing.
3. Keyin menyu panelidagi "Qo'shish" yorlig'ini bosing.
4. Va ochiladigan menyuda "Modul" ni tanlang.
5. Ikki marta bosish orqali yangi modulni oching.
6. Endi quyidagi kodlarni joylashtiring:

Sub ReplaceOneHighlightColorToAnother()
  Dim strFindColor As String
  Dim strReplaceColor As String
  Dim objDoc As Document
  Dim objRange As Range
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  strFindColor = InputBox("Specify a color (enter the value):", "Specify Highlight Color")
  strReplaceColor = InputBox("Specify a new color (enter the value):", "New Highlight Color")
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
 
      Do While .Execute
        If Selection.Range.HighlightColorIndex = strFindColor Then
          Set objRange = Selection.Range
          objRange.HighlightColorIndex = strReplaceColor
          Selection.Collapse wdCollapseEnd
        End If
      Loop
    End With
  End With
 
  Application.ScreenUpdating = True
End Sub

7. Keyin "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.
8. Keyin "Ajratish rangini belgilang" oynasiga almashtiriladigan rangni ifodalovchi qiymatni kiriting. Muayyan rangning mos keladigan qiymatini olish uchun ushbu havolaga tashrif buyurishingiz mumkin: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
9. Misol uchun, agar biz sariq rangni yorqin yashil rangga almashtirmoqchi bo'lsak, biz "Ajratish rangini ko'rsatish" maydoniga "7" ni kiritamiz va "OK" tugmasini bosing.
10. Keyin "Yangi ta'kidlash rangi" maydoniga yangi rangning qiymatini kiriting va "OK" tugmasini bosing.

Bu erda sariqni yorqin yashil rangga almashtirishning mumkin bo'lgan natijasi.

Ma'lumotlarni yo'qotish falokatidan qoching

So'z bizning kundalik ishimizda juda katta yordamchidir. Shuning uchun u qulaganda qanday ofat keltirishi mumkinligini tasavvur qilish qiyin emas. Muhim ma'lumotlarni yo'qotmaslik uchun siz a ni olishingiz mumkin So'zni tuzatish oldindan vosita. Bunday yordamchi dastur bilan siz ma'lumotlar yo'qolishi haqida tashvishlanishingiz shart emas.

Muallif kirish:

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