Si të hiqni një ngjyrë specifike theksimi nga dokumenti juaj Word

Në postimin e sotëm, jemi të lumtur të ndajmë me ju mënyrën efektive për të hequr një ngjyrë specifike të theksuar nga dokumenti juaj Word.

Në një nga artikujt tanë të mëparshëm, ne kemi folur tashmë për mënyrat për të hequr ngjyrat e theksuara. Për informacion të detajuar, mund t'i referoheni këtij linku: 5 metoda për të hequr theksimin ose hijezimin në dokumentin tuaj Word

Sot, le të shohim një rast tjetër që një dokument mund të përmbajë ngjyra të shumta të theksuara për të dalluar lloje të ndryshme të përmbajtjes. Në një rast të tillë, mënyrat e zakonshme nuk arrijnë të njohin një ngjyrë specifike të theksuar. Në fakt, e vetmja mënyrë e shpejtë dhe efektive është të ekzekutoni një makro Word.

Tani hidhini një sy qasjes së mëposhtme.

Hiqni një ngjyrë specifike theksimi përmes VBA

1. Para së gjithash, klikoni në skedën "Zhvillues" në shiritin e të dhënave.
2. Pastaj klikoni "Visual Basic" për të aktivizuar redaktorin VBA në Word. Dhe duke pasur parasysh se mund të mos e keni ende në dispozicion skedën "Zhvilluesi", mund të shtypni "Alt+ F11" në vend të kësaj.
3. Pastaj klikoni projektin "Normal" në kolonën e majtë në redaktues.
4. Pastaj klikoni në skedën "Fut" në shiritin e menusë.
5. Në menunë rënëse, zgjidhni "Modul".
6. Tani klikoni dy herë në modulin e ri për të hapur zonën e kodimit.
7. Ngjitni makronë e mëposhtme në modul:

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. Pastaj klikoni butonin "Run" ose shtypni "F5" për të ekzekutuar kodet.
9. Tjetra, ekziston kutia "Ngjyra e theksuar". Ka një vlerë për çdo ngjyrë. Thjesht futni vlerën që lidhet me ngjyrën e theksuar që do të hiqet.
10. E fundit, por jo më pak e rëndësishmja, klikoni "OK" për të vazhduar.
11. Kur të ketë mbaruar, do të merrni një kuti të tillë mesazhi:

Këtu është rezultati i mundshëm:

Mbani të sigurta të dhënat tuaja

Integriteti i të dhënave mund të kompromentohet lehtësisht. Është koha për të ndërmarrë veprime parandaluese para se gjithçka të jetë tepër vonë. Për shembull, mënyra më e rekomanduar është të bëni kopje rezervë të skedarëve rregullisht. Sigurohuni gjithmonë që të keni versionin më të fundit për t'u përdorur kur ndodh diçka e papritur. Përndryshe, do t'ju duhet të kaloni nëpër Rimëkëmbja e fjalëve për të rikthyer të dhënat.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rregulloni xlsx pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com