Ինչպե՞ս հանել հատուկ ընդգծված գույնը ձեր Word փաստաթղթից

Բառային լուծումներ Սեպտեմբեր 28, 2025
Կիսվել հիմա ՝

Այսօրվա գրառման մեջ մենք ուրախ ենք ձեզ հետ կիսվել ձեր Word փաստաթղթից որոշակի ընդգծման գույնը հեռացնելու արդյունավետ եղանակով։

Մեր նախորդ հոդվածներից մեկում մենք արդեն խոսեցինք ընդգծված գույները հեռացնելու ուղիների մասին: Մանրամասն տեղեկությունների համար կարող եք հղվել այս հղումով ՝ Ձեր Word փաստաթղթում կարևորությունը կամ ստվերը վերացնելու 5 մեթոդ

Այսօր տեսնենք մեկ այլ դեպք, որ փաստաթուղթը կարող է պարունակել բազմանդամ գույներ `տարբեր տեսակի բովանդակություն առանձնացնելու համար: Նման դեպքում սովորական եղանակները չեն կարողանում ճանաչել մեկ հատուկ ընդգծված գույն: Ի դեպ, միակ արագ և արդյունավետ միջոցը Word մակրո գործարկելն է:Ձեր Word փաստաթղթից հանեք հատուկ ընդգծված գույնը

Այժմ նայեք հետևյալ մոտեցմանը.

Հեռացրեք Հատուկ լուսավորության գույնը VBA- ի միջոցով

  1. Նախ և առաջ, սեղմեք «Մշակող» ներդիրը ժապավենի վրա։
  2. Դրանից հետո կտտացրեք «Visual Basic» - ին `Word- ում VBA- ի խմբագրիչը գործարկելու համար: Եվ հաշվի առնելով, որ հնարավոր է, որ դեռ հասանելի չեք «Կառուցապատող» ներդիրը, փոխարենը կարող եք սեղմել «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
  1. Դրանից հետո կտտացրեք «Գործարկել» կոճակին կամ կոճակները սեղմել «F5» կոդերը կատարելու համար:Տեղադրել մակրո-> Սեղմեք «Գործարկել»
  2. Հաջորդում կա «Highlight Color» վանդակը: Յուրաքանչյուր գույնի համար կա արժեք: Պարզապես մուտքագրեք հանվող լուսավորության գույնի հետ կապված արժեքը:
  3. Վերջապես, բայց ոչ պակաս կարևոր, կտտացրեք «Լավ» ՝ շարունակելու համար:Մուտքագրեք գույնի արժեք-> Սեղմեք «OK»
  4. Ավարտելուց հետո դուք կստանաք նման հաղորդագրության տուփ.Արդյունքների տուփ

Ահա հնարավոր արդյունքը.Արդյունք

Ապահով պահեք ձեր տվյալները

Տվյալների ամբողջականությունը կարող է հեշտությամբ վտանգվել։ Ժամանակն է կանխարգելիչ գործողություններ ձեռնարկել, նախքան ուշ չէ։ Օրինակ, ամենաառաջարկվող միջոցը ֆայլերի պարբերաբար պահուստավորումն է։ Միշտ համոզվեք, որ ունեք վերջին տարբերակը, որին կարող եք դիմել անսպասելի իրավիճակում։ Հակառակ դեպքում, դուք ստիպված կլինեք անցնել հետևյալը. Բառի վերականգնում տվյալների հետ ստանալու համար:

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում շտկել xlsx- ը և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: