Үгийн баримт бичигт тодруулсан өнгийг солих 2 ашигтай арга

Энэ нийтлэлд бид танд Word баримт бичигт тодруулсан өнгийг орлуулах 2 ашигтай аргыг үзүүлэхэд таатай байна.

Заримдаа та янз бүрийн агуулгыг өөр өнгөөр ​​тодруулж болно. Гэхдээ үсгийн өнгөнөөс ялгаатай нь та "Find and Replace" -ийг ашиглан тодруулсан өнгөөр ​​текст олж, өөр текстээр солих боломжгүй.

Тиймээс бидэнд зарим нэг шийдэл шаардагдах болно. Дараахь тохиолдолд өөр өөр тохиолдлуудад ашиглах 2 аргыг санал болгож байна.

Арга 1: Бүх онцлох өнгөүүдийг ижил өнгөөр ​​солих

“Find and Replace” харилцах цонхонд холбогдсон тод өнгө нь Тодруулах дүрсэнд сонгогдсон өнөөгийн өнгө юм.

1. Юуны өмнө, "Нүүр хуудас" табын доор ба "Фонт" бүлэгт "Текстийг тодруулах өнгө" командыг нээх товчлуур дээр дарна уу. Бүх онцлох өнгийг өөрчлөхийг хүссэн өнгө сонгоно уу. Жишээлбэл, бид энд "Bright Green" -ийг сонгодог.
2. Дараа нь “Find and Replace” харилцах цонхыг ажиллуулахын тулд “Ctrl + H” товчийг дарна уу.
3. "Юу олох" текст хайрцагт курсороо оруулна уу.
4. "Илүү" дээр дарж илүү олон сонголтыг гаргаж ирээд "Format" дээр дарна уу.
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” дээр дарна уу.

Шарыг тод ногоон өнгөөр ​​солих боломжтой үр дүн энд байна.

Мэдээлэл алдах гамшгаас зайлсхий

Үг бол бидний өдөр тутмын ажилд ийм сайн туслагч юм. Тиймээс нурж унахад түүний авчирч болзошгүй сүйрлийг төсөөлөхөд хэцүү биш юм. Чухал өгөгдлийг алдахгүйн тулд та a-г барьж авах боломжтой Үг засах урьдчилан хэрэгсэл. Ийм хэрэгсэл бэлэн байгаа тул та өгөгдлийн алдагдалд санаа зовох хэрэггүй болно.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. ялзарсан xlsx болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com