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

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

ჩვენს ერთ-ერთ წინა სტატიაში უკვე ვისაუბრეთ ხაზგასმული ფერების ამოღების გზებზე. დეტალური ინფორმაციისთვის შეგიძლიათ ეწვიოთ ამ ბმულს: 5 მეთოდი თქვენი Word დოკუმენტის ხაზგასმის ან დაჩრდილვის მოსაშორებლად

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

ახლა გადახედეთ ქვემოთ მოცემულ მიდგომას.

ამოიღეთ კონკრეტული მონიშვნის ფერი VBA-ის საშუალებით

1. პირველ რიგში, ლენტში დააწკაპუნეთ „დეველოპერის“ ჩანართზე.
2. შემდეგ დააწკაპუნეთ „Visual Basic“-ზე, რათა ჩართოთ VBA რედაქტორი Word-ში. და იმის გათვალისწინებით, რომ შესაძლოა ჯერ არ გქონდეთ „დეველოპერი“ ჩანართი, ამის ნაცვლად შეგიძლიათ დააჭიროთ „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

8. შემდეგ დააჭირეთ ღილაკს "Run" ან დააჭირეთ "F5" კოდების შესასრულებლად.
9. შემდეგი, არის ყუთი "მონიშნეთ ფერი". თითოეულ ფერს აქვს მნიშვნელობა. უბრალოდ შეიყვანეთ მნიშვნელობა, რომელიც დაკავშირებულია მონიშვნის ფერთან, რომელიც უნდა მოიხსნას.
10. დაბოლოს, მაგრამ არანაკლებ მნიშვნელოვანი, დააჭირეთ "OK" გასაგრძელებლად.
11. როდესაც ეს დასრულდება, თქვენ მიიღებთ შეტყობინებას ასეთი ყუთი:

აქ არის შესაძლო შედეგი:

შეინახეთ თქვენი მონაცემები უსაფრთხოდ

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

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

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