Dalam hal hari iniost, kami senang berbagi dengan Anda cara efektif untuk menghapus warna sorotan tertentu dari dokumen Word Anda.
Di salah satu artikel kami sebelumnya, kami telah membahas tentang cara menghilangkan warna highlight. Untuk informasi rinci, Anda dapat merujuk ke tautan ini: 5 Metode untuk Menghapus Sorotan atau Shading di Dokumen Word Anda
Hari ini, mari kita lihat kasus lain di mana sebuah dokumen dapat berisi beberapa warna sorotan untuk menonjolkan jenis konten yang berbeda. Dalam kasus seperti itu, cara biasa gagal mengenali satu warna sorotan tertentu. Faktanya, satu-satunya cara cepat dan efektif adalah menjalankan makro Word.
Sekarang lihat pendekatan berteriak.
Hapus Warna Sorotan Tertentu melalui VBA
- Pertama dan depanost, klik tab "Pengembang" di Pita.
- Kemudian klik "Visual Basic" untuk memicu editor VBA di Word. Dan mengingat Anda mungkin belum memiliki tab "Pengembang", Anda dapat menekan "Alt + F11" sebagai gantinya.
- Selanjutnya klik proyek "Normal" di kolom kiri di editor.
- Kemudian klik tab "Sisipkan" pada bilah menu.
- Pada menu drop-down, pilih "Module".
- Sekarang klik dua kali pada modul baru untuk membuka area pengkodean.
- Tempel 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
- Kemudian klik tombol "Run" atau tekan "F5" untuk menjalankan kode.
- Selanjutnya, ada kotak "Highlight Color". Ada nilai untuk setiap warna. Cukup masukkan nilai yang terkait dengan warna sorotan yang akan dihapus.
- Terakhir, klik "OK" untuk melanjutkan.
- Setelah selesai, Anda akan menerima kotak pesan seperti itu:
Berikut adalah hasil yang mungkin:
Amankan Data Anda
Integritas data dapat dengan mudah dikompromikan. Saatnya mengambil tindakan preventif sebelum semuanya terlambat. Misalnya, most cara yang disarankan adalah dengan membackup file secara teratur. Selalu pastikan Anda memiliki versi terbaru untuk digunakan saat sesuatu yang tidak terduga terjadi. Jika tidak, Anda harus melalui Pemulihan kata untuk mendapatkan kembali data.
Pengantar Penulis:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaiki xlsx dan pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com