Tietyn korostusvärin poistaminen Word-asiakirjasta

Tämän päivän viestissä jaamme mielellämme kanssasi tehokkaan tavan poistaa tietty korostusväri Word-dokumentistasi.

Yhdessä edellisistä artikkeleistamme olemme jo puhuneet tavoista poistaa korostetut värit. Yksityiskohtaisia ​​tietoja löydät tästä linkistä: 5 menetelmää korostamisen tai varjostuksen poistamiseksi Word-dokumentista

Tarkastellaan tänään toista tapausta, jossa asiakirja voi sisältää useita korostusvärejä erottaakseen erityyppisen sisällön. Tällöin tavanomaisilla tavoilla ei tunnisteta yhtä tiettyä korostusväriä. Itse asiassa ainoa nopea ja tehokas tapa on ajaa Word-makro.

Katsokaa nyt räikeää lähestymistapaa.

Poista tietty korostusväri VBA: n kautta

1. Ensinnäkin, napsauta valintanauhan ”Kehittäjä”-välilehteä.
2. Napsauta sitten “Visual Basic” käynnistääksesi VBA-editorin Wordissa. Ja koska Kehittäjä-välilehti ei ehkä ole vielä käytettävissä, voit painaa sen sijaan Alt + F11.
3. Napsauta sitten “Normaali” projekti editorin vasemmassa sarakkeessa.
4. Napsauta sitten valikkorivin Lisää-välilehteä.
5. Valitse avattavasta valikosta Moduuli.
6. Kaksoisnapsauta uutta moduulia avataksesi koodausalueen.
7. Liitä seuraava makro moduuliin:

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. Napsauta sitten Suorita-painiketta tai paina "F5" suorittaaksesi koodit.
9. Seuraavaksi on Korostusväri-ruutu. Jokaiselle värille on oma arvo. Syötä vain poistettavaan korostusväriin liittyvä arvo.
10. Viimeisenä mutta ei vähäisimpänä, napsauta "OK" jatkaaksesi.
11. Kun se on valmis, saat tällaisen viestiruudun:

Tässä on mahdollinen tulos:

Pidä tietosi turvassa

Tietojen eheys voi vaarantua helposti. On aika ryhtyä ennaltaehkäiseviin toimiin ennen kuin on liian myöhäistä. Esimerkiksi suositeltavin tapa on varmuuskopioida tiedostot säännöllisesti. Varmista aina, että sinulla on uusin versio, johon voit turvautua odottamattomien tilanteiden varalta. Muuten joudut käymään läpi seuraavat vaiheet: Sanojen palautus saada tietoja takaisin.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaa xlsx ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com