Trong bài viết này, chúng tôi sẽ hướng dẫn bạn 2 cách nhanh chóng và hiệu quả để đếm tổng số trang và số từ cho nhiều tài liệu Word.
Thỉnh thoảng, khi làm việc trên một tài liệu dài, chúng ta có xu hướng chia nội dung thành nhiều tệp Word, chẳng hạn như đặt các chương khác nhau trong nhiều tài liệu. Sau đó, khi đếm tổng số trang và số từ, có thể hơi mệt vì bạn phải mở từng tài liệu riêng lẻ và kiểm tra thông tin.
Do đó, chúng tôi liệt kê 2 phương pháp nhanh chóng để giúp tiết kiệm thời gian quý báu của bạn.
Phương pháp 1: Kiểm tra chi tiết trong thư mục tệp
Trong văn bản, chúng tôi sẽ đưa ra một ví dụ trong môi trường Windows 7.
- Trước hết, sắp xếp tất cả các tài liệu cần kiểm tra trong một thư mục tệp.
- Sau đó, mở thư mục tệp và nhấp vào nút “Tùy chọn khác” bên cạnh “Thay đổi chế độ xem của bạn”.
- Tiếp theo nhấp vào “Chi tiết”.
- Bây giờ, nhấp chuột phải vào hàng tiêu đề và chọn “Thêm”.
- Trong hộp thoại “Chọn chi tiết”, chọn hộp “Số trang” và “Số từ”.
- Sau đó nhấp vào “OK”.
Bây giờ sẽ có 2 cột mới, hiển thị các trang và từ của mỗi tài liệu. Bạn chỉ cần cộng các số này lại với nhau.
Tuy nhiên, phương pháp này chỉ cung cấp cho bạn số từ gần đúng trong mỗi tệp. Như vậy, để có được con số chính xác hơn, bạn có thể chọn cách 2.
Phương pháp 2: Tạo Macro
- Tương tự, trước tiên hãy đặt tất cả các tài liệu cần thiết vào cùng một thư mục.
- Sau đó, mở Word và nhấp vào tab "Nhà phát triển".
- Tiếp theo bấm vào “Visual Basic” để mở trình soạn thảo VBA. Hoặc bạn có thể chỉ cần nhấn “Alt + F11”.
- Bây giờ hãy nhấp vào “Bình thường” và “Chèn”.
- Sau đó chọn “Mô-đun”.
- Tiếp theo nhấp đúp chuột vào mô-đun mới và dán các mã sau vào khu vực chỉnh sửa:
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
- Cuối cùng, nhấp vào "Chạy". Sau đó, bạn sẽ được chào đón bằng một hộp thông báo, cho biết số trang và tổng số từ, chẳng hạn như bên dưới:
Lưu ý: “C:\Users\Test\Desktop\files” đề cập đến vị trí thư mục tệp.
Coi chừng tham nhũng tài liệu
Vì chúng ta phải xử lý tất cả các loại báo cáo mỗi ngày, nên sao lưu một số tệp quan trọng phòng trường hợp chúng bị hỏng vì sao lưu luôn là một phần quan trọng của mạng lưới an toàn để bảo vệ tính toàn vẹn của tệp. Tuy nhiên, thực tế là các bản sao lưu cũng có thể là nạn nhân của tham nhũng. Và đó là lúc bạn sẽ cần đến một giải pháp ưu việt công cụ khôi phục tệp Word bị hỏng
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm công cụ sửa lỗi dữ liệu xlsx và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm