2 სასარგებლო მეთოდი თქვენს Word დოკუმენტში მონიშვნის ფერის შეცვლისთვის

ამ სტატიაში ჩვენ მოხარული ვართ გაჩვენოთ 2 სასარგებლო მეთოდი თქვენი Word დოკუმენტის ხაზგასმის ფერის შეცვლისთვის.

ხანდახან შეიძლება ხაზგასმით აღვნიშნოთ სხვადასხვა შინაარსი სხვადასხვა ფერებით. მაგრამ შრიფტის ფერისგან განსხვავებით, თქვენ არ შეგიძლიათ გამოიყენოთ "ძებნა და ჩანაცვლება", რათა იპოვოთ ტექსტები კონკრეტული ხაზგასმული ფერით და შეცვალოთ იგი სხვათი.

ამიტომ, ჩვენ დაგვჭირდება გარკვეული გამოსავალი. ქვემოთ მოცემულია 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. შემდეგ დააჭირეთ ღილაკს "Run" ან დააჭირეთ "F5".
8. შემდეგ ველში „დანიშნეთ მონიშვნის ფერი“ შეიყვანეთ მნიშვნელობა, რომელიც წარმოადგენს შესაცვლელ ფერს. კონკრეტული ფერის შესაბამისი მნიშვნელობის მისაღებად შეგიძლიათ ეწვიოთ ამ ბმულს: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
9. მაგალითად, თუ გვინდა ყვითელი ფერის ჩანაცვლება კაშკაშა მწვანეთი, ჩავწერთ „7“-ს „დანიშნეთ მონიშვნის ფერი“ ველში და დააჭირეთ „OK“.
10. შემდეგ ველში "ახალი მონიშვნის ფერი" შეიყვანეთ ახალი ფერის მნიშვნელობა და დააჭირეთ "OK".

აქ მოცემულია ყვითელი ფერის ნათელი მწვანეთი ჩანაცვლების შესაძლო შედეგი.

მოერიდეთ მონაცემთა დაკარგვის კატასტროფას

სიტყვა ისეთი დიდი დამხმარეა ჩვენს ყოველდღიურ საქმიანობაში. ამიტომ, ძნელი არ არის იმის წარმოდგენა, თუ რა კატასტროფა შეიძლება მოიტანოს, როდესაც ის იშლება. კრიტიკული მონაცემების დაკარგვის თავიდან ასაცილებლად, შეგიძლიათ დაიჭიროთ a სიტყვის შესწორება ინსტრუმენტი წინასწარ. ასეთი უტილიტა ხელთ, თქვენ არ უნდა ინერვიულოთ მონაცემების დაკარგვაზე.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის კორუმპირებული xlsx მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად