Hướng dẫn xóa tất cả TEXT BOX trong Word bằng VBA

Text Box (Hộp văn bản) được sử dụng khá nhiều trong các bài tập thực hành tin học văn phòng. Ngoài ra, nó cũng là một trong rất nhiều tính năng hữu ích đang được mọi người sử dụng rộng rãi hơn trong tài liệu, văn bản Word của mình. Trong bài viết này, Gitiho sẽ hướng dẫn các bạn cách để xóa các text box trong Word đơn giản bằng VBA.

Xóa từng TEXT BOX trong Word

Đôi khi, bạn chỉ muốn xóa một hoặc hai text box (hộp văn bản) mà thôi thì bạn có thể thao tác theo các bước như sau:

Bước 1: Đầu tiên, bạn hãy click vào bên trong hộp văn bản và nhấn CTRL + C để sao chép văn bản (bạn có thể bỏ qua bước này nếu KHÔNG muốn giữ lại đoạn văn bản).

Bước 2: Tiếp theo, bạn hãy click vào đường viền của text box => nhấn DELETE.

 

Rất đơn giản phải không nào? Cách này rất hiệu quả đối với số ít text box. Vậy nếu bạn muốn xóa nhiều text box cùng lúc thì sao?

Xóa tất cả TEXT BOX trong Word bằng VBA

Bước 1: Nhấn ALT + F11 để mở cửa sổ VBA trong Word.

Bước 2: Tiếp theo, bạn hãy nhấp chọn tab Insert => Module và chèn mã VBA bến dưới đây vào cửa sổ Module:

Sub Test()
Dim oShp As Word.Shape
Dim i As Long
For i = ActiveDocument.Shapes.Count To 1 Step -1
Set oShp = ActiveDocument.Shapes(i)
If oShp.Type = msoTextBox Then
oShp.Delete
End If
Next i
End Sub

Bước 3: Click vào nút Run để chạy mã VBA (hoặc nhấn F5).

Như bạn có thể thấy, học VBA giúp ích rất nhiều trong tự động hóa quy trình, đặc biệt là các công việc có tính chất lặp đi lặp lại trong Word, Excel,… Bạn có thể tham khảo ngay một số khóa học sau tại Gitiho để nâng trình sử dụng VBA và Word của mình nhé:

Trên đây là những hướng dẫn về cách xóa TEXT BOX trong Word. Nếu các bạn có thắc mắc gì, đừng ngần ngại để lại comment bên dưới nhé! Gitiho sẽ giải đáp thắc mắc của bạn trong thời gian sớm nhất.