Dalam catatan hari ini, kami dengan senang hati akan berkongsi 2 kaedah pantas dengan anda untuk mengekstrak teks dengan warna yang sama daripada dokumen Word anda.
Sekali-sekala, semasa memformat dokumen Word, kita cenderung menerapkan warna font untuk beberapa teks sehingga menarik perhatian mereka untuk perhatian tambahan. Biasanya, kata-kata berwarna ini adalah isi penting yang patut anda kaji semula. Lalu bagaimana dengan mengeksport dan mengumpulkannya ke tempat lain untuk pemeriksaan yang jelas kemudian?
Dengan fokus pada permintaan ini, kami mencadangkan anda 2 jalan pintas pantas dan bukannya tindakan memotong dan menampal tanpa henti.
Kaedah 1: Gunakan Ciri "Cari"
- Pertama, klik tab "Laman Utama".
- Kemudian pergi ke kumpulan "Mengedit" untuk mengklik butang segitiga terbalik di sebelah "Cari".
- Seterusnya pilih "Carian Lanjutan" dalam senarai.
- Dalam kotak dialog "Cari dan Ganti", letakkan kursor di kotak teks "Cari apa" dan kosongkan kandungan di sana jika ada.
- Seterusnya klik butang "Lagi".
- Sekarang klik butang "Format" dan Pilih "Font".
- Dalam kotak dialog "Cari Font", klik butang tarik turun di belakang "Warna fon" untuk memilih warna yang tepat yang anda tetapkan pada teks anda.
- Ingatlah untuk mengklik "OK".
- Sekarang kembali ke kotak "Cari dan Ganti" dan klik "Cari Di".
- Akhirnya, pilih "Dokumen Utama".
Kemudian semua teks dalam warna sasaran akan dipilih. Anda kini boleh menekan “Ctrl+ C” untuk menyalin dan kemudian menampalnya di lokasi lain dengan sekali gus.
Kaedah 2: Jalankan Makro Word
- Pertama sekali, klik tab "Pembangun".
- Kemudian klik "Visual Basic" untuk mencetuskan editor VBA.
- Seterusnya klik "Normal" dan kemudian "Masukkan".
- Pilih "Modul" pada menu.
- Kemudian klik dua kali pada modul untuk mengaktifkan ruang pengekodan.
- Kod tampal seterusnya:
Sub ExtractColoredTexts()
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
.ClearFormatting
.Replacement.ClearFormatting
.Font.Color = wdColorRed
.Text = ""
.Execute
End With
Do While .Find.Found
Set objRange = Selection.Range
objDocAdd.Range.InsertAfter objRange & vbCr
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
End Sub
- Sekarang klik butang "Jalankan".
Akan ada dokumen baru yang terbuka dengan semua teks yang diekstrak.
Catatan: Pada baris kod ".Font.Color = wdColorRed", anda perlu mengganti "wdColorRed" dengan warna sebenar teks anda. Untuk rujukan terperinci, anda boleh melayari halaman ini: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor
Masalah Kata Alamat
Kebanyakan daripada kita sudah kerap menggunakan Word. Namun, meskipun begitu, kita masih boleh menghadapi beberapa masalah yang sukar, seperti kegagalan Word. Ini sememangnya masalah yang agak serius, kerana fail penting anda boleh terancam. Dalam keadaan sedemikian, adalah disyorkan untuk mendapatkan Alat pembaikan ralat data perkataan yang akan memulihkan data Word hanya dalam beberapa minit.
Pengenalan Pengarang:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk alat pembaikan masalah xls data dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com