Dalam artikel hari ini, kami akan menunjukkan kepada anda 2 kaedah cepat dan berkesan untuk menghitung jumlah peluru dalam dokumen Word anda.
Dari semasa ke semasa, kami akan menggunakan senarai bertanda atau bernomor dalam dokumen kami untuk mengatur item. Secara amnya, titik peluru atau angka mengetuai item individu, sama ada perkataan atau frasa atau ayat. Sekarang jika anda mempunyai senarai bernombor, tidak akan menjadi masalah untuk mengetahui jumlah item keseluruhan. Namun, bagaimana jika terdapat senarai butir dalam dokumen kata anda? Cukup menghitungnya satu persatu tidak terdengar baik.
Oleh itu, sekiranya sebilangan daripada anda mungkin perlu menjumlahkan nombor peluru, berikut adalah 2 cara untuk menyelesaikannya.
Kaedah 1: Tukarkan Senarai Peluru ke Daftar Nombor
- Pertama, pilih senarai yang anda mahu dapatkan nombor peluru.
- Kemudian klik "Penomboran" dalam kumpulan "Perenggan" di bawah tab "Rumah". Senarai berpoin akan berubah menjadi nombor satu.
Atau anda juga dapat mengklik kanan pada pilihan dan menggerakkan kursor ke atas pilihan "Penomboran", kemudian arahkan kursor pada salah satu gaya penomboran pada menu lanjutan. Ini membolehkan anda mendapatkan bilangan peluru tanpa benar-benar menukar senarai peluru ke angka.
Omong-omong, jika anda perlu menghitung titik peluru dari keseluruhan dokumen, anda hanya perlu meletakkan kursor dalam satu senarai bullet, dan kemudian ikuti langkah-langkah di atas. Anda akan dapati semua senarai butir dalam fail telah ditukar menjadi senarai bernombor dengan nombor mengikut urutan, seperti di bawah:
Kaedah 2: Gunakan Makro
- Sebagai permulaan, jika anda ingin mendapatkan peluru dari senarai tertentu, pilihlah. Jika tidak, untuk jumlah peluru dalam keseluruhan dokumen, anda harus menekan "Ctrl + A" untuk memilihnya.
- Seterusnya, klik tab "Pembangun".
- Kemudian klik "Visual Basic" untuk membuka editor VBA. Gabungan jalan pintas adalah "Alt + F11".
- Sekarang klik "Normal" kemudian "Masukkan".
- Pilih "Modul" seterusnya.
- Klik dua kali pada modul baru, dan tampal kod ini di kawasan penyuntingan:
Sub GetNumberOfBullets()
Dim objRange As Range
Dim objParagraph As Paragraph
Dim nNumber As Integer
' Initialization
Set objRange = Selection.Range
nNumber = 0
For Each objParagraph In objRange.Paragraphs
If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Then
nNumber = nNumber + 1
End If
Next objParagraph
' Pop up a message box to show the total number of bullets.
MsgBox ("Bullet number:" & nNumber)
End Sub
- Akhirnya, klik "Jalankan".
Anda akan melihat kotak mesej muncul, menunjukkan hasilnya.
Urus Fail Anda dengan Baik
Kami berurusan dengan sebilangan besar dokumen Word semasa pengalaman bekerja, disarankan agar kami mengatasinya dengan berhati-hati, kerana sebarang kecelakaan boleh mengakibatkan rasuah. Sekiranya kerosakan fail berlaku, anda memerlukannya Alat pemulihan dokumen perkataan untuk membantu anda mengatasi masalah tersebut.
Pengenalan Pengarang:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk alat pembaikan kerosakan data xls dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com