Word sənədinizdən xüsusi vurğu rəngini necə çıxarmaq olar

Bugünkü yazıda, Word sənədinizdən müəyyən bir vurğu rəngini silməyin təsirli yolunu sizinlə bölüşməkdən məmnunuq.

Əvvəlki məqalələrimizdən birində vurğulanan rəngləri aradan qaldırmağın yolları haqqında artıq danışdıq. Ətraflı məlumat üçün bu linkə müraciət edə bilərsiniz: Word sənədinizdə işıqlandırma və ya kölgə salmağın 5 üsulu

Bu gün, fərqli məzmun növlərini fərqləndirmək üçün bir sənəddə bir neçə vurğulama rənginin ola biləcəyi başqa bir vəziyyətə baxaq. Belə bir vəziyyətdə, adi üsullar bir xüsusi vurğulama rəngini tanıya bilmir. Əslində, yeganə sürətli və effektiv yol Word makrosunu işə salmaqdır.

İndi aşağıdakı yanaşmaya nəzər salın.

VBA vasitəsilə xüsusi vurğu rəngini silin

1. Əvvəlcə lentdə "Geliştirici" sekmesini vurun.
2. Sonra Word-də VBA redaktorunu işə salmaq üçün “Visual Basic” üzərinə klikləyin. Və "Tərtibatçı" sekmesinin hələ mövcud olmadığını nəzərə alsaq, bunun əvəzinə "Alt + F11" düyməsini sıxa bilərsiniz.
3. Sonra redaktorun sol sütununda "Normal" layihəsinə klikləyin.
4. Sonra menyu çubuğunda "Daxil et" sekmesini vurun.
5. Açılan menyuda "Modul" seçin.
6. İndi kodlaşdırma sahəsini açmaq üçün yeni modulun üzərinə iki dəfə klikləyin.
7. Aşağıdakı makronu modula yapışdırın:

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. Sonra kodları yerinə yetirmək üçün "Çalış" düyməsini və ya "F5" düyməsini basın.
9. Sonra "Rəngi ​​vurğulamaq" qutusu var. Hər rəng üçün bir dəyər var. Sadəcə silinəcək vurğu rəngi ilə əlaqəli dəyəri daxil edin.
10. Nəhayət, davam etmək üçün "OK" düyməsini basın.
11. Hazır olduqda, belə bir mesaj qutusu alacaqsınız:

Mümkün nəticə budur:

Məlumatlarınızı Təhlükəsiz Saxlayın

Məlumatların bütövlüyü asanlıqla pozula bilər. Hər şey çox gec olmamışdan əvvəl profilaktik tədbirlər görməyin vaxtıdır. Məsələn, ən çox tövsiyə olunan yol faylların müntəzəm olaraq ehtiyat nüsxəsini çıxarmaqdır. Gözlənilməz bir şey baş verərkən həmişə müraciət etmək üçün ən son versiyaya sahib olduğunuzdan əmin olun. Əks təqdirdə, aşağıdakılardan keçməli olacaqsınız Söz bərpası məlumatları geri almaq üçün.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xlsx düzəldin və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com