Word құжатыңыздан ерекше бөлектеу түсін қалай жоюға болады

Word шешімдері Қыркүйек 28, 2025
Қазір бөлісу:

Бүгінгі жазбада біз сіздермен Word құжатыңыздан белгілі бір түсті бөлектеуді жоюдың тиімді әдісімен бөлісуге қуаныштымыз.

Алдыңғы мақалалардың бірінде біз түстерді жоюдың жолдары туралы айтқан болатынбыз. Толық ақпарат алу үшін мына сілтемеге жүгіне аласыз: Word құжатындағы бөлектеуді немесе көлеңкеді жоюдың 5 әдісі

Бүгін, басқа мазмұнды қарастыру үшін құжатта бірнеше ерекшеленетін түстер болуы мүмкін тағы бір жағдайды қарастырайық. Мұндай жағдайда әдеттегі тәсілдер бір ерекше түс түсінбей қалады. Шын мәнінде, Word-тің макросын іске қосу бірден-бір жылдам әрі тиімді әдіс болып табылады.Word құжатыңыздан ерекше бөлектеу түсті алып тастаңыз

Енді төмендегі тәсілге назар аударыңыз.

VBA арқылы ерекше түс бөлігін алып тастаңыз

  1. Ең алдымен, таспадағы «Әзірлеуші» қойындысын басыңыз.
  2. Содан кейін Word бағдарламасындағы VBA редакторын іске қосу үшін «Visual Basic» батырмасын басыңыз. Сізде әзірге «Әзірлеуші» қойындысы жоқ болуы мүмкін екенін ескеріп, оның орнына «Alt + F11» пернелерін басуға болады.
  3. Келесіде редактордың сол жақ бағанындағы «Қалыпты» жобасын басыңыз.
  4. Содан кейін мәзір жолағындағы «Кірістіру» қойындысын нұқыңыз.
  5. Ашылмалы мәзірден «Модуль» таңдаңыз.«Қалыпты» -> «Кірістіру» -> «Модуль» батырмасын басыңыз
  6. Енді кодтау аймағын ашу үшін жаңа модульді екі рет басыңыз.
  7. Модульге келесі макросты қойыңыз:
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
  1. Содан кейін кодтарды орындау үшін «Іске қосу» батырмасын басыңыз немесе «F5» батырмасын басыңыз.Макро қою> «Іске қосу» батырмасын басыңыз
  2. Әрі қарай, «Түстерді бөлектеу» терезесі бар. Әр түстің мәні бар. Тек алынып тасталатын түске қатысты мәнді енгізіңіз.
  3. Соңғысы, бірақ аз емес, жалғастыру үшін «OK» батырмасын басыңыз.Түс мәнін енгізіңіз -> «ОК» батырмасын басыңыз
  4. Аяқтағаннан кейін сізге келесі хабарлама терезесі келеді:Нәтиже қорабы

Мүмкін нәтиже:нәтиже

Деректеріңізді сақтаңыз

Деректердің тұтастығы оңай бұзылуы мүмкін. Бәрі кеш болмай тұрып, алдын алу шараларын қабылдау уақыты келді. Мысалы, ең ұсынылатын әдіс - файлдардың сақтық көшірмесін үнемі жасау. Күтпеген жағдай орын алған кезде әрқашан ең соңғы нұсқасын пайдалануды ұмытпаңыз. Әйтпесе, сізге келесі әрекеттерді орындауға тура келеді. Сөзді қалпына келтіру деректерді қайтарып алу үшін.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xlsx түзету және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.