Dalam artikel ini, kami akan menunjukkan kepada anda 2 cara cepat dan berkesan untuk menghitung jumlah halaman dan kata-kata untuk beberapa dokumen Word.
Sekali-sekala, semasa mengerjakan dokumen panjang, kita cenderung membagi kandungan menjadi beberapa fail Word, seperti meletakkan bab yang berlainan dalam beberapa dokumen. Kemudian apabila menghitung jumlah halaman dan kata-kata, itu sedikit membosankan, kerana anda perlu membuka setiap dokumen dan memeriksa maklumat.
Oleh itu, kami menyenaraikan 2 kaedah cepat untuk membantu menjimatkan masa berharga anda.
Kaedah 1: Periksa Butiran dalam Folder Fail
Dalam teks tersebut, kami akan memberikan contoh di bawah persekitaran Windows 7.
- Pertama, susun semua dokumen yang akan diperiksa dalam satu folder fail.
- Kemudian buka folder fail dan klik butang "Lebih banyak pilihan" di sebelah "Ubah pandangan anda".
- Klik seterusnya "Butiran".
- Sekarang klik kanan pada baris tajuk dan pilih "Lagi".
- Dalam kotak dialog "Pilih Butiran", centang kotak "Halaman" dan "Jumlah kata".
- Kemudian klik "OK".
Sekarang akan ada 2 lajur baru, menunjukkan halaman dan kata-kata setiap dokumen. Anda hanya perlu menambahkan nombor ini bersama-sama.
Walau bagaimanapun, kaedah ini hanya memberi anda jumlah perkataan dalam setiap fail. Oleh itu, untuk mendapatkan angka yang lebih tepat, anda boleh memilih kaedah 2.
Kaedah 2: Buat Makro
- Begitu juga, letakkan semua dokumen sasaran dalam satu folder fail dahulu.
- Kemudian buka Word dan klik tab "Pembangun".
- Klik seterusnya "Visual Basic" untuk membuka editor VBA. Atau anda hanya boleh menekan "Alt + F11".
- Sekarang klik "Normal" dan "Insert".
- Kemudian pilih "Modul".
- Klik dua kali seterusnya pada modul baru dan tampal kod berikut di kawasan penyuntingan:
Sub GetAllPageNumbers()
Dim objWordApplication As Word.Application
Dim nPageNumber As Long
Dim nWordNumber As Long
Dim objFile As Variant
Dim objFileSystem As Object
Dim objFolders As Object
nPageNumber = 0
Set objWordApplication = New Word.Application
Set objFileSystem = CreateObject("scripting.filesystemobject")
Set objFolders = objFileSystem.getfolder("C:\Users\Test\Desktop\files")
For Each objFile In objFolders.Files
' Only process non-hidden files
If (objFile.Attributes And 2) = 0 Then
With objWordApplication
.Documents.Open (objFile)
nPageNumber = nPageNumber + .ActiveDocument.ComputeStatistics(wdStatisticPages)
nWordNumber = nWordNumber + .ActiveDocument.ComputeStatistics(wdStatisticWords)
.ActiveDocument.Close (False)
End With
End If
Next objFile
MsgBox ("pages:" & nPageNumber & " " & "words:" & nWordNumber)
Set objFile = Nothing
Set objFileSystem = Nothing
Set objFolders = Nothing
Set objWordApplication = Nothing
End Sub
- Terakhir, klik "Jalankan". Kemudian anda akan disambut oleh kotak mesej, yang menunjukkan nombor halaman dan jumlah perkataan, seperti di bawah:
Catatan: "C: \ Users \ Test \ Desktop \ files" merujuk pada lokasi folder fail.
Perhatikan Kerosakan Dokumen
Oleh kerana kita harus berurusan dengan semua jenis laporan setiap hari, disarankan untuk membuat sandaran beberapa fail kritikal sekiranya ia rosak kerana sandaran selalu menjadi bahagian penting dari jaring pengaman untuk melindungi integriti fail. Namun, kenyataannya adalah bahawa sandaran juga boleh menjadi mangsa rasuah. Dan ketika itulah anda memerlukan yang unggul alat pemulihan fail Word yang rosak
Pengenalan Pengarang:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk alat pembaikan masalah data xlsx dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com