2 Сөздік құжаттағы бөлектеу түсті ауыстырудың пайдалы әдістері

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

Кейде сіз әртүрлі мазмұнды әр түрлі түстермен бөліп көрсете аласыз. Бірақ қаріптің түсінен айырмашылығы, сіз «Іздеу және ауыстыру» арқылы мәтінді арнайы бөлектелген түспен тауып, басқасымен ауыстыра алмайсыз.

Сондықтан бізге уақытша шешімдер қажет болады. Төменде әртүрлі жағдайлар үшін қол жетімді 2 әдіс берілген.

1-әдіс: Барлық түстерді бірдей түске ауыстырыңыз

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

1. Біріншіден, «Үй» қойындысының астында және «Қаріп» тобында «Мәтінді бөлектеу түсі» командасының ашылмалы батырмасын басыңыз. Барлық түстерді өзгертетін түс таңдаңыз. Мысалы, біз мұнда «Жарқын жасыл» таңдаймыз.
2. Содан кейін «Іздеу және ауыстыру» диалогтық терезесін қосу үшін «Ctrl + H» пернелерін басыңыз.
3. «Нені табу» мәтін жолына курсорды салыңыз.
4. Қосымша опцияларды шығару үшін «Қосымша» батырмасын басыңыз және «Пішімдеу» батырмасын басыңыз.
5. «Бөлектеуді» таңдаңыз.
6. Әрі қарай «Ауыстыру» жолына курсорды қойып, 4 және 5-қадамдарды қайталаңыз.
7. Соңында «Барлығын ауыстыру» түймесін басыңыз.

Енді сіз барлық түстерді ашық жасылға ауыстырдыңыз.

2-әдіс: Ерекшеленген түсін басқа түске ауыстырыңыз

Бұл тапсырманы орындау үшін макросты қажет етеді.

1. Ең алдымен, VBA редакторын ашу үшін «Alt+F11» пернелер тіркесімін басыңыз.
2. Содан кейін сол жақ бағандағы «Қалыпты» жобаны басыңыз.
3. Содан кейін мәзір жолағындағы «Кірістіру» қойындысын нұқыңыз.
4. Сол ашылмалы мәзірден «Модуль» таңдаңыз.
5. Жаңа модульді екі рет басу арқылы ашыңыз.
6. Енді келесі кодтарды қойыңыз:

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. Әрі қарай «Іске қосу» батырмасын басыңыз немесе «F5» батырмасын басыңыз.
8. Содан кейін «Specify Highlight Color» өрісіне ауыстырылатын түсін білдіретін мәнді енгізіңіз. Белгілі бір түстің сәйкес мәнін алу үшін мына сілтемеге кіруге болады: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
9. Мысалы, егер біз сары түсті ашық жасылға ауыстырғымыз келсе, «Specify Highlight Color» жолына «7» енгізіп, «OK» батырмасын басыңыз.
10. Содан кейін «New Highlight Color» өрісіне жаңа түстің мәнін енгізіп, «OK» батырмасын басыңыз.

Міне, сары түсті ашық жасылға ауыстырудың нәтижесі.

Деректерді жоғалту апатынан сақтаныңыз

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

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

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