2 Metode Praktis untuk Mengekstrak Teks yang Disorot dari Dokumen Word Anda

Pada artikel ini, kami ingin menunjukkan kepada Anda 2 metode praktis untuk mengekstrak teks yang disorot dari dokumen Word Anda.

Seringkali, kami cenderung menyorot teks dengan warna saat menavigasi melalui dokumen. Semua potongan teks ini mungkin tersebar di seluruh artikel, tetapi mereka pasti layak mendapat perhatian kita. Oleh karena itu, kami hanya dapat mengekspor dan mengaturnya di dokumen lain untuk tinjauan cepat di lain waktu, menyelamatkan kami dari menggulirkan roda mouse berulang kali.

Metode 1: Manfaatkan Fitur "Pencarian Tingkat Lanjut".

1. Pertama, klik tab "Beranda" lalu klik tombol terbalik di belakang "Temukan".
2. Selanjutnya pilih "Advanced Find" untuk membuka kotak dialog "Find and Replace".
3. Di dalam kotak, letakkan kursor di dalam kotak teks "Temukan apa" dan kemudian klik "Lainnya".
4. Kemudian klik tombol "Format" dan pilih "Sorot".
5. Selanjutnya klik tab “Find In” dan pilih “Main Document”.

Sekarang Anda akan melihat semua teks sorotan sedang dipilih sekarang, seperti di bawah ini:

Anda dapat menyalin dan menempelkannya ke dokumen baru.

Metode 2: Gunakan Word VBA

Seperti yang ditunjukkan dalam sampel kami, memiliki banyak teks dengan warna sorotan yang berbeda bukanlah hal yang aneh. Sekarang mari kita bicara tentang cara mendapatkan semua konten dengan warna highlight yang sama terlebih dahulu.

1. Pertama dan depanost, tekan "Alt + F11" untuk membuka editor VBA.
2. Kemudian klik "Normal".
3. Dan klik "Sisipkan".
4. Selanjutnya pilih “Modul”.
5. Klik dua kali pada modul baru untuk memunculkan ruang pengkodean.
6. Sekarang tempel kode berikut di sana:

Sub ExtractHighlightedTextsInSameColor()
  Dim objDoc As Document, objDocAdd As Document
  Dim objRange As Range

  Set objDoc = ActiveDocument
  Set objDocAdd = Documents.Add
  objDoc.Activate

  With Selection
    .HomeKey Unit:=wdStory
     With Selection.Find
       .Highlight = True
       Do While .Execute
         If Selection.Range.HighlightColorIndex = wdYellow Then
           Set objRange = Selection.Range
           objDocAdd.Range.InsertAfter objRange & vbCr 
           Selection.Collapse wdCollapseEnd
         End If
       Loop
     End With
  End With
End Sub

7. Kemudian klik tombol “Run”.

Anda akan memiliki dokumen baru dengan semua teks yang disorot di dalamnya.

Lalu ada makro lain yang memungkinkan Anda mengumpulkan semua teks yang disorot dengan warna yang sama dari multi-dokumen. Yang perlu Anda lakukan adalah mengatur semuanya dalam satu folder dan melakukan langkah-langkah di atas, tetapi ganti makro dengan yang ini:

Sub ExtractHighlightedTextsInSameColorFromMultiDoc()
  Dim objDoc As Document, objDocAdd As Document
  Dim strFile As String, strFolder As String
  Dim objRange As Range
 
  '  Initialization
  strFolder = "C:\Users\Public\Documents\New folder\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  Set objDocAdd = Documents.Add
 
  '  Precess each file in the file folder.
  While strFile <> ""
  Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
      Do While .Execute
        If Selection.Range.HighlightColorIndex = wdYellow Then
          Set objRange = Selection.Range
          objDocAdd.Range.InsertAfter objRange & vbCr
          Selection.Collapse wdCollapseEnd
        End If
      Loop
    End With
  End With
 
  objDoc.Close
  strFile = Dir()
  Wend
End Sub

Catatan:

1. Pertama seperti yang Anda lihat, 2 makro mengekstrak semua teks berwarna kuning. Anda pasti bisa mengganti kode “wdKuning” dengan warna lain. Berikut link yang bisa Anda kunjungi: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172829(v=office.11)
2. Kedua, jika Anda ingin mengumpulkan semua teks yang disorot dengan warna berbeda, Anda hanya perlu menghapus "Jika Selection.Range.HighlightColorIndex = wdYellow Kemudian"Dan"End If” garis.
3. Ketiga, di baris kode “strFolder = “C:\Users\Public\Documents\Folder baru\” di makro kedua, ganti jalur string jalur dengan folder yang Anda miliki. Dan jangan lupa tambahkan “\" pada akhirnya.

Cadangan tidak pernah terlambat

Singkatnya, kami sangat menekankan pada pencadangan sehingga most Anda harus tahu betapa pentingnya itu sekarang. Dengan demikian, kita masih bisa gagal mencadangkan secara teratur. Dan sebenarnya, tanpa cadangan, satu-satunya pilihan tersisa sekali korupsi dokumen terjadi adalah untuk mendapatkan alat pengambilan data.

Pengantar Penulis:

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