Trong bài viết này, chúng tôi muốn giới thiệu cho bạn 2 phương pháp nhanh chóng và dễ sử dụng để trích xuất văn bản từ các hộp văn bản trong tài liệu Word của bạn.
Đôi khi, chúng ta có thể nhận được một tệp Word chứa một số lượng lớn các hộp văn bản. Thông thường, sẽ có văn bản hoặc nội dung tương đối bên trong các hộp đó. Sau đó, có thể có nhu cầu chỉ lấy các văn bản bên trong thay vì giữ toàn bộ hộp văn bản.
Chắc chắn, thật nhanh chóng để truy xuất các từ trong một hộp văn bản đơn giản bằng cách sao chép văn bản ra và dán nó vào một nơi khác. Tuy nhiên, khi nói đến hàng trăm người trong số họ, tốt hơn hết chúng ta nên học một số mẹo nhanh để hoàn thành công việc.
Cách 1: Sử dụng “Selection Pane”
- Đầu tiên và foremost, nhấp vào tab "Trang chủ".
- Sau đó nhấp vào biểu tượng “Chọn” trong nhóm “Chỉnh sửa”.
- Tiếp theo, trên menu thả xuống, chọn “Ngăn chọn”.
- Bây giờ ở phía bên phải của màn hình, bạn có thể thấy tất cả các hộp văn bản hiển thị trên ngăn.
- Nhấn “Ctrl” và nhấp lần lượt vào các tên hộp văn bản đó trên ngăn để chọn tất cả.
- Và di chuyển để đặt con trỏ trên một trong các dòng hộp và nhấp chuột phải.
- Trên tùy chọn danh sách, nhấp vào “Sao chép”. Bây giờ nếu bạn không cần những hộp đó nữa, chỉ cần nhấn “Xóa”.
- Tiếp theo nhấp vào “Start” để xem menu Windows.
- Chọn “WordPad” và mở nó.
- Sau đó nhấp vào “Dán” để nhận tất cả văn bản từ các hộp văn bản.
- Tiếp theo, chọn tất cả các văn bản và nhấp chuột phải để chọn “Sao chép”.
- Bây giờ hãy mở một tài liệu Word mới và nhấp chuột phải để chọn “Chỉ giữ văn bản” để lấy văn bản.
Cách 2: Sử dụng mã VBA
Như bạn có thể thấy, ngay cả với phương pháp đầu tiên, bạn không thể tránh việc chọn tất cả các hộp văn bản. Trong trường hợp một số bạn chỉ ghét công việc lao động như vậy, ở đây chúng tôi sẽ cung cấp cho bạn cách chạy macro. Với phương pháp 2, bạn có thể trích xuất tất cả văn bản trong một lần và xóa các hộp văn bản.
- Đầu tiên, nhấn “Alt + F11” để mở trình soạn thảo VBA.
- Thứ hai, nhấp vào “Bình thường” và sau đó “Chèn”.
- Tiếp theo chọn “Module” để chèn một cái mới.
- Sau đó nhấp đúp chuột vào tên mô-đun để mở khu vực chỉnh sửa.
- Dán các mã sau và nhấp vào "Chạy":
Sub DeleteTextBoxesAndExtractTheText()
Dim nNumber As Integer
Dim strText As String
' Delete all textboxes and extract the text from them
With ActiveDocument
For nNumber = .Shapes.Count To 1 Step -1
If .Shapes(nNumber).Type = msoTextBox Then
strText=strText& .Shapes(nNumber).TextFrame.TextRange.Text & vbCr
.Shapes(nNumber).Delete
End If
Next
End With
' Open a new document to paste the text from textboxes.
If strText <> "" Then
Documents.Add Template:="Normal"
ActiveDocument.Range.Text = strText
Else
MsgBox ("There is no textbox.")
End If
End Sub
Đây là những gì bạn có khả năng nhận được:
Đối phó với các tệp Word bị hỏng
Word dễ bị lỗi và do đó thường xuyên là nạn nhân của tham nhũng. Do đó, bạn phải quản lý tài liệu của mình đúng cách để bảo vệ chúng khỏi bị hư hại. Vì một khi chúng bị hỏng, bạn sẽ phải đối mặt với nguy cơ mất chúng vĩnh viễn. Sau đó, bạn sẽ phải sử dụng Công cụ khôi phục dữ liệu 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ụ khôi phục lỗi tệp Excel 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