Trong bài viết hôm nay chúng tôi xin giới thiệu tới các bạn 2 cách tìm kiếm văn bản Word nhanh chóng với số trang cụ thể.
Nói chung, có một số lượng lớn các tập tin được lưu trữ trong một thư mục. Hơn nữa, có thể có nhiều loại tập tin khác nhau. Vậy nếu bạn cần tìm kiếm một tài liệu Word có số trang cụ thể thì sao? Hoặc bạn quên tên một tài liệu nhưng vẫn nhớ tổng số trang của nó.
Các giải pháp dưới đây sẽ giúp bạn tìm kiếm các tài liệu Word mục tiêu với số trang cụ thể.
Cách 1: Tìm kiếm trong Window Explorer
- Trước tiên, hãy nhấp vào “Bắt đầu”.
- Sau đó nhấp vào “Máy tính” để mở windows explorer. Hoặc nếu biểu tượng trình khám phá tệp đã có trên thanh tác vụ của bạn, chỉ cần nhấp vào biểu tượng đó.
- Tiếp theo, đi tới đĩa và vị trí cụ thể nơi bạn lưu giữ tất cả các tệp.
- Bây giờ hãy nhấp chuột phải vào khoảng trống ở hàng đầu tiên.
- Kiểm tra “Loại” và “Trang”. Nếu chúng không hiển thị ở đó, hãy nhấp vào “Thêm” ở cuối menu.
- Trong hộp “Chọn chi tiết” mở ra, chọn hộp “Trang” và “Loại” rồi nhấp vào “OK”.
- Sau đó di chuyển con trỏ qua cột “Loại” cho đến khi nút thả xuống hiển thị. Nhấp vào nó.
- Chọn hộp “Tài liệu Microsoft Word”. Bạn có thể thấy chỉ còn lại các tài liệu Word. Sau đó xem cột “Trang” để tìm tài liệu có số trang cụ thể.
Cách 2: Chạy Macro trong Word
- Trước tiên, hãy nhấn tổ hợp phím “Alt + F11” để mở trình soạn thảo VBA trong Word.
- Tiếp theo nhấp vào “Bình thường” và nhấp vào “Chèn” trên thanh công cụ.
- Chọn “Mô-đun” để tạo một mô-đun mới.
- Sau đó nhấp đúp chuột để mở không gian mã hóa ở bên phải.
- Dán macro sau vào đó:
Sub FindWordDocumentWithSpecificPageNumber()
Dim lPageNumber As Long
Dim lSpecificPageNumber As Long
Dim strDocList As String
Dim strDocName As String
Dim objWordApplication As New Word.Application
Dim strFile As String
Dim strFolder As String
strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
lSpecificPageNumber = InputBox("Enter the page number you want to search", "Specific Page Number", "For example:1")
strFile = Dir(strFolder & "*.doc*", vbNormal)
While strFile <> ""
With objWordApplication
.Documents.Open (strFolder & strFile)
lPageNumber = .ActiveDocument.ComputeStatistics(wdStatisticPages)
If lPageNumber = lSpecificPageNumber Then
strDocName = .ActiveDocument.FullName
strDocList = strDocList & strDocName & vbCr
End If
.ActiveDocument.Close
End With
strFile = Dir()
wend
Set objWordApplication = Nothing
If strDocList <> "" Then
Documents.Add Template:="Normal"
ActiveDocument.Range.Text = strDocList
Else
MsgBox ("There is no match document.")
End If
End Sub
- Tiếp theo nhấp vào nút “Run” hoặc nhấn “F5”.
- Bây giờ có một hộp nhập liệu nhắc nhở. Nhập địa chỉ thư mục vào hộp văn bản và đừng quên thêm “\” vào cuối chuỗi.
- Bấm “OK” để chuyển sang bước tiếp theo.
- Trong ô thứ hai, nhập một số vào ô văn bản. Số này biểu thị tổng số trang của tài liệu cần chỉnh sửa. Tương tự, nhấp vào “OK”.
Sẽ có một tài liệu được mở trong Word, với tên đầy đủ của tài liệu cần nhắm đến.
Giải quyết hoàn cảnh của sự sụp đổ của Word
Nhìn chung, Word là một công cụ đắc lực để xử lý công việc hàng ngày. Tuy nhiên, thỉnh thoảng, những vấn đề khó khăn vẫn có thể xảy ra. Và đôi khi, tình huống hơi nghiêm trọng đến mức bạn có thể phải đối mặt với từ hư hỏng. Trong trường hợp như vậy, bạn sẽ cần một công cụ sửa chữa nâng cao để truy xuất tác phẩm của mình.
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 xls sửa chữa 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