Dalam artikel hari ini, kami akan menyajikan kepada Anda 2 metode cepat dan efektif untuk menghitung jumlah peluru dalam dokumen Word Anda.
Dari waktu ke waktu, kami menggunakan daftar berpoin atau bernomor dalam dokumen kami untuk mengatur item. Umumnya, poin-poin atau nomor mengarah pada item individual, baik itu kata atau frasa atau kalimat. Sekarang jika Anda memiliki daftar bernomor, tidak akan menjadi masalah untuk mengetahui jumlah item total. Namun, bagaimana jika ada daftar berpoin di dokumen kata Anda? Menghitungnya satu per satu saja tidak terdengar bagus.
Oleh karena itu, jika beberapa dari Anda mungkin perlu meringkas nomor peluru, berikut adalah 2 cara untuk berolahraga.
Metode 1: Ubah Daftar Berpoin menjadi Daftar Bernomor
- Pertama, pilih daftar yang ingin Anda dapatkan nomor pelurunya.
- Kemudian klik "Penomoran" di grup "Paragraf" di bawah tab "Beranda". Daftar berpoin akan berubah menjadi satu nomor.
Atau Anda juga dapat mengklik kanan pada pilihan dan memindahkan kursor ke opsi "Penomoran", lalu arahkan kursor ke salah satu gaya penomoran pada menu perluasan. Ini memungkinkan Anda untuk mendapatkan jumlah peluru tanpa benar-benar mengubah daftar berpoin menjadi yang bernomor.
Omong-omong, jika Anda perlu menghitung poin-poin dari seluruh dokumen, Anda hanya perlu menempatkan kursor dalam satu daftar berpoin, lalu ikuti langkah-langkah di atas. Anda akan menemukan semua daftar berpoin dalam file telah dikonversi ke daftar bernomor dengan nomor berurutan, seperti di bawah ini:
Metode 2: Gunakan Makro
- Untuk memulainya, jika Anda ingin mendapatkan poin dari daftar tertentu, pilihlah. Jika tidak, untuk jumlah peluru di seluruh dokumen, Anda harus menekan "Ctrl + A" untuk memilihnya.
- Selanjutnya, klik tab "Pengembang".
- Kemudian klik "Visual Basic" untuk membuka editor VBA. Kombinasi pintasannya adalah “Alt+ F11”.
- Sekarang klik "Normal" lalu "Sisipkan".
- Pilih "Modul" berikutnya.
- Klik dua kali pada modul baru, dan rekatkan kode ini di area pengeditan:
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
- Terakhir, klik "Jalankan".
Anda akan melihat kotak pesan muncul, menunjukkan hasilnya.
Kelola File Anda dengan Baik
Kami menangani sejumlah besar dokumen Word selama pengalaman kerja, disarankan agar kami menanganinya dengan hati-hati, karena kecelakaan apa pun dapat menyebabkan korupsi. Dan jika terjadi kerusakan file, Anda memerlukan Alat pemulihan dokumen Word untuk membantu Anda mengatasi masalah tersebut.
Pengantar Penulis:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk alat perbaikan kerusakan data xls ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com