Word có khả năng tìm kiếm và thay thế mạnh mẽ cho phép bạn tìm kiếm hầu như mọi thứ trong tài liệu của mình. Word thậm chí còn bao gồm các mã bạn có thể sử dụng để tìm kiếm các mục đặc biệt. (Nhấp vào nút Đặc biệt trong hộp thoại Tìm và Thay thế để xem những mã nào có sẵn.) Tuy nhiên, một thứ bạn không thể tìm kiếm là các hộp văn bản. Không có mã đặc biệt nào cho phép bạn tìm các hộp văn bản và bạn không thể tìm kiếm chúng bằng Trình duyệt Đối tượng.

Tuy nhiên, bạn có thể sử dụng macro để xem qua tài liệu và dừng lại khi tìm thấy hộp văn bản. Macro sau dừng trên mỗi hộp văn bản mà nó tìm thấy và hỏi người dùng xem đó có phải là hộp văn bản muốn không.

Sub SearchTextBox()

Dim shp As Shape     Dim sTemp As String     Dim iAnswer As Integer

For Each shp In ActiveDocument.Shapes         If shp.Type = msoTextBox Then             shp.Select             Selection.ShapeRange.TextFrame.TextRange.Select             sTemp = Selection.Text             sTemp = Left(sTemp,20)

iAnswer = MsgBox("Box contains text beginning with:" & vbCrLf _               & sTemp & vbCrLf & "Stop here?", vbYesNo, "Located Text Box")

If iAnswer = vbYes Then Exit For         End If     Next End Sub

_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 (3520) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Word (Word 2007 và sau này) tại đây: