Angela có một tài liệu có khoảng 400 hộp văn bản trong đó và mỗi hộp văn bản chứa văn bản. Cô ấy tự hỏi nếu có cách nào để loại bỏ các hộp văn bản nhưng vẫn giữ nguyên văn bản trong tài liệu.

Điều này có thể được thực hiện theo cách thủ công bằng cách chỉ cần chọn văn bản trong hộp văn bản (đảm bảo không chọn chính hộp văn bản), nhấn Ctrl + C để sao chép văn bản, nhấp vào nơi bạn muốn văn bản đến, nhấn Ctrl + V, sau đó xóa hộp văn bản. Tuy nhiên, điều này sẽ nhanh chóng trở nên tẻ nhạt khi bạn xử lý nhiều hộp văn bản như Angela.

Trong trường hợp này, tốt nhất bạn nên dựa vào macro để thực hiện các thay đổi. Macro có thể chạy qua tất cả các hộp văn bản khá nhanh chóng, thực hiện công việc cần thiết. Sau đây là một ví dụ về macro như vậy:

Sub ConvertTextboxText()

Dim shp As Shape     Dim oRngAnchor As Range     Dim sTemp As String     Dim J As Long

For J = ActiveDocument.Shapes.Count To 1 Step -1         Set shp = ActiveDocument.Shapes(J)

If shp.Type = msoTextBox Then             sTemp = shp.TextFrame.TextRange.Text             If Len(sTemp) > 1 Then                 Set oRngAnchor = shp.Anchor.Paragraphs(1).Range                 sTemp = Left(sTemp, Len(sTemp) - 1)

oRngAnchor.InsertBefore "[[ " & sTemp & " ]]"

End If             shp.Delete         End If     Next J End Sub

Macro này chỉ hoạt động với các hộp văn bản, bỏ qua bất kỳ hình dạng nào khác có thể chứa văn bản. Nó bắt đầu ở hộp văn bản cuối cùng và hoạt động theo cách của nó ở đầu tài liệu. Khi hoàn tất, tất cả văn bản từng nằm bên trong hộp văn bản sẽ được chèn vào đầu đoạn mà hộp văn bản đã xóa trước đó đã được neo vào.

Ngoài ra, văn bản đó được bao quanh bởi [[dấu ngoặc kép]] để bạn có thể dễ dàng biết vị trí của văn bản. Vì các hộp văn bản đôi khi có thể được cố định cách xa nơi chúng xuất hiện trong tài liệu, bạn chắc chắn sẽ muốn tìm kiếm các đoạn văn bản có dấu ngoặc kép này và di chuyển chúng đến vị trí cuối cùng bạn muốn.

Nếu bạn đang tìm kiếm các cách khác để hoàn thành nhiệm vụ tương tự, bạn có thể quan tâm đến trang web này:

https://www.datanumen.com/blogs/2-quick-methods-extract-texts-text-boxes-word-document/

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (7739) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365.