Trong bài viết này, chúng tôi rất vui được chỉ cho bạn 3 cách hiệu quả để duyệt theo hộp văn bản trong tài liệu Word của bạn.
Có lệnh “Select Browse Object” trong Word cho phép bạn chỉ duyệt những đối tượng bạn đã chọn. Ví dụ: bạn có thể chọn duyệt theo bảng hoặc trang. Thật không may, không có chức năng tích hợp để duyệt theo hộp văn bản. Vì vậy, chúng tôi sẽ cung cấp cho bạn 3 cách để làm như vậy.
Cách 1: Sử dụng phím “Tab”
- Trước tiên, nhấn tổ hợp phím “Ctrl + Home” để quay lại trang đầu của tài liệu.
- Sau đó tìm và nhấp vào hộp văn bản đầu tiên.
- Tiếp theo, nhấn “Tab” để chuyển sang hộp văn bản tiếp theo.
Nhân tiện, cách này cũng sẽ giúp bạn tìm thấy các hình dạng và hình ảnh trong tài liệu.
Phương pháp 2: Chạy Macro để nhảy từ hộp văn bản này sang hộp văn bản khác
- 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”.
- Sau đó nhấp vào “Chèn” và chọn “Mô-đun” trên menu thả xuống của nó.
- Mở mô-đun mới bằng cách nhấp đúp.
- Bây giờ trong khu vực mã hóa, dán các mã sau:
Sub BrowseByTextBox()
Dim objShape As Shape
Dim strBoxText As String
Dim strButtonValue As String
Dim objDoc As Document
Set objDoc = ActiveDocument
For Each objShape In objDoc.Shapes
If objShape.Type = msoTextBox Then
objShape.Select
Selection.ShapeRange.TextFrame.TextRange.Select
strBoxText = objShape.TextFrame.TextRange.Text
strButtonValue = MsgBox("This text box contains: " & vbNewLine _
& strBoxText & vbNewLine & "Is this your desired text box?" _
& vbNewLine, vbYesNo, "Desired Text Box")
If strButtonValue = vbYes Then
Exit Sub
End If
End If
Next objShape
End Sub
- Nhấp vào nút “Chạy” trên thanh menu hoặc nhấn “F5” để thực thi mã.
Khi bạn bắt đầu chạy macro, một hộp thoại sẽ hiện lên, như hình bên dưới:
Trên hộp hiển thị nội dung trong hộp văn bản được chọn hiện tại. Bạn có thể nhấp vào “Có” để dừng ở đó nếu đó là hộp văn bản bạn muốn. Nếu không, hãy nhấp vào “Không” để chuyển đến hộp văn bản tiếp theo.
Phương pháp 3: Tìm một hộp văn bản cụ thể
Nếu bạn đặt tiêu đề cho hộp văn bản trong tài liệu, bạn có thể sử dụng nó kết hợp với macro dưới đây để xác định vị trí của nó ngay lập tức.
- Trước hết, hãy tham khảo các bước trong phương pháp 2 để cài đặt và chạy macro.
- Sau đó, hãy nhớ thay thế macro bằng cái này:
Sub FindASpecificTextBox()
Dim objShape As Shape
Dim strBoxTitle As String
Dim objInlineShape As InlineShape
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
strBoxTitle = InputBox("Enter the title of the text box to be found here: ")
For Each objShape In objDoc.Shapes
If objShape.Type = msoTextBox Then
objShape.Select
Selection.ShapeRange.TextFrame.TextRange.Select
If objShape.Title = strBoxTitle Then
Exit Sub
End If
End If
Next objShape
For Each objInlineShape In objDoc.InlineShapes
If objInlineShape.Type = msoTextBox Then
objInlineShape.Select
Selection.ShapeRange.TextFrame.TextRange.Select
If objInlineShape.Title = strBoxTitle Then
Exit Sub
End If
End If
Next objInlineShape
Application.ScreenUpdating = True
End Sub
- Tiếp theo, trong hộp nhập liệu hiện ra, nhập tiêu đề của hộp văn bản cần tìm và nhấn “OK” để tiếp tục. Bạn sẽ thấy hộp văn bản mục tiêu được chọn.
Đối phó với mất dữ liệu
Do Word là một trong những phần mềm được sử dụng nhiều nhất, nên việc biết một số thủ thuật khi Word ngừng phản hồi là điều cần thiết. Đối với những vấn đề quan trọng tài liệu tham nhũng, lựa chọn duy nhất của bạn là khôi phục nó. Và để làm điều này, bạn cần cẩn thận chọn một công cụ của bên thứ ba mà bạn có thể tin tưở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 xlsx hỏng 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