Cara Menghilangkan Warna Sorotan Khusus dari Dokumen Word Anda

Dalam catatan hari ini, kami gembira untuk berkongsi dengan anda cara berkesan untuk mengalih keluar warna sorotan tertentu daripada dokumen Word anda.

Dalam salah satu artikel sebelumnya, kami telah membincangkan cara untuk menghilangkan warna sorotan. Untuk maklumat terperinci, anda boleh merujuk pautan ini: 5 Kaedah untuk Menghilangkan Sorotan atau Bayangan dalam Dokumen Word Anda

Hari ini, mari kita lihat kes lain bahawa dokumen boleh mengandungi pelbagai warna sorotan untuk menonjolkan pelbagai jenis kandungan. Dalam kes seperti itu, cara biasa gagal mengenali satu warna sorotan tertentu. Sebenarnya, satu-satunya cara yang cepat dan berkesan adalah menjalankan makro Word.

Sekarang perhatikan pendekatan bawah.

Keluarkan Warna Sorotan Khusus melalui VBA

1. Pertama sekali, klik tab "Pembangun" dalam Reben.
2. Kemudian klik "Visual Basic" untuk mencetuskan editor VBA di Word. Dan memandangkan anda mungkin belum menyediakan tab "Pembangun", anda dapat menekan "Alt + F11" sebagai gantinya.
3. Klik seterusnya projek "Normal" di lajur kiri di editor.
4. Kemudian klik tab "Masukkan" pada bar menu.
5. Pada menu lungsur turun, pilih "Modul".
6. Sekarang klik dua kali pada modul baru untuk membuka kawasan pengekodan.
7. Tampal makro berikut pada 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. Kemudian klik butang "Jalankan" atau tekan "F5" untuk melaksanakan kod.
9. Seterusnya, terdapat kotak "Warna Sorotan". Terdapat nilai untuk setiap warna. Cukup masukkan nilai yang berkaitan dengan warna sorotan yang akan dikeluarkan.
10. Akhir sekali, klik "OK" untuk meneruskan.
11. Setelah selesai, anda akan menerima kotak mesej seperti itu:

Inilah kemungkinan hasilnya:

Pastikan Data Anda Selamat

Integriti data mudah terjejas. Sudah tiba masanya untuk mengambil tindakan pencegahan sebelum semuanya terlambat. Contohnya, cara yang paling disyorkan adalah dengan membuat sandaran fail secara berkala. Sentiasa pastikan anda mempunyai versi terkini untuk digunakan sekiranya berlaku sesuatu yang tidak dijangka. Jika tidak, anda perlu melalui proses ini. Pemulihan perkataan untuk mendapatkan kembali data.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk betulkan xlsx dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com