2 Metode Berguna untuk Mengganti Warna Sorotan di Dokumen Word Anda

Pada artikel ini, kami dengan senang hati menunjukkan kepada Anda 2 metode yang berguna untuk mengganti warna sorotan di dokumen Word Anda.

Terkadang Anda mungkin menyoroti konten yang berbeda dengan warna berbeda. Tetapi tidak seperti warna font, Anda tidak dapat memanfaatkan "Temukan dan Ganti" untuk menemukan teks dalam warna sorotan tertentu dan menggantinya dengan yang lain.

Oleh karena itu, kami memerlukan beberapa solusi. Berikut adalah 2 cara yang tersedia untuk berbagai kasus.

Metode 1: Ganti Semua Warna Sorotan dengan Warna yang Sama

Warna sorotan yang terkait dengan kotak dialog "Temukan dan Ganti" adalah warna yang saat ini dipilih di ikon Sorotan.

1. Pertama-tama, di bawah tab "Beranda" dan di grup "Font", klik tombol drop-down pada perintah "Warna Sorotan Teks". Pilih warna yang ingin Anda ubah semua warna sorotannya. Misalnya, kami memilih "Hijau Cerah" di sini.
2. Kemudian tekan "Ctrl + H" untuk memicu kotak dialog "Temukan dan Ganti".
3. Letakkan kursor di dalam kotak teks "Temukan apa".
4. Klik "Lainnya" untuk menampilkan lebih banyak opsi dan klik "Format".
5. Dan pilih "Sorot".
6. Selanjutnya letakkan kursor di dalam kotak "Ganti dengan" dan ulangi langkah 4 dan 5.
7. Terakhir, klik "Ganti Semua".

Sekarang Anda telah mengganti semua warna sorotan dengan hijau cerah.

Metode 2: Ganti Warna Sorotan Tertentu dengan yang Lain

Untuk menyelesaikan tugas ini, makro diperlukan.

1. Pertama dan terpenting, tekan “Alt+F11” untuk membuka editor VBA.
2. Selanjutnya klik proyek "Normal" di kolom kiri.
3. Kemudian klik tab "Sisipkan" pada bilah menu.
4. Dan pilih "Modul" pada menu drop-down itu.
5. Buka modul baru dengan klik dua kali.
6. Sekarang tempel kode berikut:

Sub ReplaceOneHighlightColorToAnother()
  Dim strFindColor As String
  Dim strReplaceColor As String
  Dim objDoc As Document
  Dim objRange As Range
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  strFindColor = InputBox("Specify a color (enter the value):", "Specify Highlight Color")
  strReplaceColor = InputBox("Specify a new color (enter the value):", "New Highlight Color")
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
 
      Do While .Execute
        If Selection.Range.HighlightColorIndex = strFindColor Then
          Set objRange = Selection.Range
          objRange.HighlightColorIndex = strReplaceColor
          Selection.Collapse wdCollapseEnd
        End If
      Loop
    End With
  End With
 
  Application.ScreenUpdating = True
End Sub

7. Selanjutnya klik tombol "Run" atau tekan "F5".
8. Kemudian di kotak "Tentukan Warna Sorotan", masukkan nilai yang mewakili warna yang akan diganti. Untuk mendapatkan nilai yang sesuai dari warna tertentu, Anda dapat mengunjungi tautan ini: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
9. Misalnya, jika kita ingin mengganti warna kuning dengan hijau cerah, kita masukkan "7" di kotak "Specify Highlight Color" dan klik "OK".
10. Kemudian di kotak "Warna Sorotan Baru", masukkan nilai warna baru dan klik "OK".

Berikut adalah kemungkinan hasil penggantian kuning dengan hijau cerah.

Hindari Bencana Kehilangan Data

Kata adalah penolong yang luar biasa dalam pekerjaan kita sehari-hari. Oleh karena itu, tidak sulit untuk membayangkan bencana yang ditimbulkannya ketika ia runtuh. Untuk menghindari kehilangan data penting, Anda bisa mendapatkan file Perbaikan kata alat sebelumnya. Dengan utilitas seperti itu, Anda tidak perlu khawatir tentang kehilangan data.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xlsx rusak ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com