Word sənədinizdə çoxlu alt xəttlərin rəngini toplu dəyişdirməyin 2 sürətli yolu

Bu yazıda biz Word sənədinizdə çoxlu alt xəttlərin rəngini toplu şəkildə dəyişdirməyin 2 sürətli yolunu izah etməyə diqqət yetirəcəyik.

Varsayılan olaraq, Word-də alt xətt rəngi "Avtomatik" olaraq təyin olunur. Ancaq bəzən monoton ola bilər. Beləliklə, həm sənədinizdəki rəng dəstini şaxələndirmək, həm də vacib məzmunu fərqləndirmək üçün alt xətt rəngini dəyişdirmək yaxşı seçimdir.

Alt xətt rəngini yaratmazdan əvvəl dəyişdirmək asandır. Buna görə də, aşağıdakı məzmunda mövcud alt xəttlərin rənginin dəyişdirilməsinə xüsusi diqqət yetirmək istərdik.

Metod 1: "Qabaqcıl Tapma" funksiyasından istifadə edin

İlk növbədə, cari sənəddəki bütün alt xəttli nümunələri tapmalısınız. Bunun üçün əvvəlki məqaləmizə müraciət edə bilərsiniz: Word sənədinizdə altı çizili mətnləri axtarmağın 2 sürətli yolu

Seçimdə bütün alt xəttləri tapdıqdan və etdikdən sonra aşağıdakı addımları yerinə yetirirsiniz:

1. Siz sadəcə olaraq “Ev” sekmesinin altındakı alt xətt işarəsinin arxasındakı tərs üçbucaq düyməsini sıxırsınız.
2. Sonra “Altın Çətin Rəngi”nin genişləndirilmiş menyusunda bəyəndiyiniz rəngi seçin.

Video nümayişimizi təqdim edirik:

Metod 2: Word Makronunu işə salın

Word makrosu belə heyrətamiz bir vasitədir. Biz yalnız bütün alt xəttləri axtarmaq üçün istifadə edə bilmirik, həm də onların rəngini dəyişdirə bilərik. Və hər iki prosedur yalnız bir makroda tamamlana bilər.

1. Başlamaq üçün "Developer" sekmesini aktivləşdirin və üzərinə klikləyin.
2. Sonra "Kod" qrupunda "Visual Basic" düyməsini basın.
3. Sonra "Normal" düyməsini basın.
4. Sonra "Daxil et" sekmesini vurun.
5. Və menyuda "Modul" seçin.
6. Redaktə sahəsini açmaq üçün yeni modulun üzərinə iki dəfə klikləyin.
7. İndi aşağıdakı kodları ora yapışdırın:

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. Sonuncu, lakin ən azı, "Çalış" düyməsini basın.

Qeydlər:

1. Birincisi, “.Font.Underline = wdUnderlineSingle” kod sətri bu makronun yalnız tək alt xəttləri tapması deməkdir. Siz “wdUnderlineSingle” ifadəsini “wdUnderlineDouble”, “wdUnderlineThick” və s kimi dəyişə bilərsiniz. Daha çox alt xətt sabitləri üçün bu linkə daxil ola bilərsiniz: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
2. İkincisi, kod sətri “.Replacement.Font.UnderlineColor = wdColorBlue” makronun alt xətt rəngini mavi rəngə dəyişəcəyini bildirir. Və daha çox rəng sabitləri üçün ziyarət edə bilərsiniz: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Təhlükəli Word Datasını əldə edin

Word məlumatlarının itirilməsi bu günlərdə çox mümkündür. Məsələn, Word-də rastlaşacağınız ən çox yayılmış səhv ekranın donmasıdır. Əlbəttə ki, proqramı yenidən başlatmağı seçə bilərsiniz. Bəzən üzərində işlədiyiniz sənədin avtomatik yadda saxlanılan versiyası olur. Lakin, sənədin tamamilə və ya qismən itirilməsi ehtimalını istisna edə və ya ödəyə bilmərik. Buna görə də, məlumatları bərpa etməyin yollarını düşünməliyik. Və bu barədə danışarkən, peşəkar bir mütəxəssis Söz təmiri alət onun uğurunun açarıdır.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumenMəlumatların bərpası texnologiyaları, o cümlədən təmir alətləri üzrə dünya lideri olan , Inc zədələnmiş xls və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com