Word hujjatingizdagi bir nechta pastki chiziq rangini to'plamda o'zgartirishning 2 ta tezkor usuli

Ushbu maqolada biz Word hujjatidagi bir nechta pastki chiziq rangini to'liq o'zgartirishning ikkita tezkor usulini tushuntirishga qaratamiz.

Odatiy bo'lib, Word-da pastki chiziq rangi "Avtomatik" sifatida o'rnatiladi. Ammo ba'zida monoton bo'lishi mumkin. Hujjatdagi ranglar to'plamini diversifikatsiya qilish va muhim tarkibni ajratib ko'rsatish uchun pastki chiziq rangini o'zgartirish yaxshi tanlovdir.

Yaratishdan oldin pastki chiziq rangini o'zgartirish oson. Shuning uchun, keyingi tarkibda biz mavjud pastki chiziq rangini o'zgartirishga alohida e'tibor qaratmoqchimiz.

1-usul: "Kengaytirilgan topish" xususiyatidan foydalaning

Avvalo, siz joriy hujjatdagi barcha tagiga chizilgan misollarni topishingiz kerak. Buning uchun avvalgi maqolamizga murojaat qilishingiz mumkin: Word hujjatida tagiga chizilgan matnlarni qidirishning 2 ta tezkor usuli

Tanlovda barcha pastki chizilganlarni topib olgandan so'ng, siz quyidagi amallarni bajarasiz:

1. Siz shunchaki "Uy" yorlig'i ostidagi pastki chiziq belgisi orqasidagi teskari uchburchak tugmasini bosing.
2. Keyin kengaytirilgan menyuda "Ostining ostiga chizilgan rang" dan o'zingizga yoqqan rangni tanlang.

Mana bizning video namoyishimiz:

2-usul: Word makrosini ishga tushiring

Word makrosi - bu ajoyib vosita. Biz undan nafaqat barcha pastki chiziqlarni qidirish, balki ularning rangini o'zgartirish uchun ham foydalanishimiz mumkin. Va ikkala protsedurani faqat bitta makrosda tugatish mumkin.

1. Boshlash uchun "Tuzuvchi" yorlig'ini faollashtiring va ustiga bosing.
2. Keyin "Kod" guruhidagi "Visual Basic" ni bosing.
3. Keyin "Oddiy" tugmasini bosing.
4. Keyin "Qo'shish" yorlig'ini bosing.
5. Va menyuda "Modul" ni tanlang.
6. Tahrirlash maydonini ochish uchun yangi modulni ikki marta bosing.
7. Endi u erga quyidagi kodlarni joylashtiring:

Sub ChangeUnderlineColor()
  Dim objDoc As Document
  Dim objRange As Range
 
  Set objDoc = ActiveDocument
  Set objRange = objDoc.Range
 
  objRange.Find.ClearFormatting
  With objRange.Find
    .Font.Underline = wdUnderlineSingle
    .text = ""
    .Replacement.text = ""
    .Replacement.Font.UnderlineColor = wdColorBlue
    .Execute Format:=True, Replace:=wdReplaceAll
  End With
End Sub

8. Va nihoyat, eng muhimi, "Ishga tushirish" tugmasini bosing.

Eslatmalar:

1. Birinchidan, “.Font.Underline = wdUnderlineSingle” kod qatori bu makros faqat bitta pastki chiziqni topishini bildiradi. Siz “wdUnderlineSingle”ni “wdUnderlineDouble”, “wdUnderlineThick” va boshqalarga o‘zgartirishingiz mumkin. Ko‘proq tagiga chizilgan konstantalar uchun ushbu havolaga tashrif buyurishingiz mumkin: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
2. Ikkinchidan, “.Replacement.Font.UnderlineColor = wdColorBlue” kod qatori makrosning pastki chiziq rangini ko‘k rangga o‘zgartirishini bildiradi. Va ko'proq rang doimiylari uchun tashrif buyurishingiz mumkin: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Buzilgan Word ma'lumotlarini oling

Hozirgi kunda Word ma'lumotlarining yo'qolishi juda katta ehtimol. Masalan, Wordda duch keladigan eng keng tarqalgan xato - bu ekranning muzlashi. Albatta, siz dasturni qayta ishga tushirishni tanlashingiz mumkin. Ba'zan siz ishlayotgan hujjatning avtomatik saqlangan versiyasi bo'lishi mumkin. Biroq, biz hujjatning to'liq yoki qisman yo'qolish ehtimolini istisno qila olmaymiz yoki bunga yo'l qo'ymaymiz. Shuning uchun biz ma'lumotlarni tiklash yo'llarini o'ylab topishimiz kerak. Va bu haqda gapiradigan bo'lsak, professional. So'zni tuzatish vosita muvaffaqiyatining kalitidir.

Muallif kirish:

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