Heidi có mười lăm tài liệu, mỗi tài liệu chủ yếu bao gồm một chiếc bàn dài.

Cô ấy cần tạo macro để tìm kiếm theo từng hàng và bằng cách nào đó đánh dấu (bằng cách tô bóng, tô đậm, thay đổi phông chữ, v.v.) bất kỳ hàng nào không có ký tự trong dấu ngoặc đơn ở bất kỳ hàng nào. Ngoài ra, cô ấy cũng có thể đánh dấu các hàng có chứa ký tự dấu ngoặc đơn — cô ấy chỉ cần có thể phân biệt giữa các hàng có và các hàng không. Có nhiều cách để tiếp cận một macro như vậy, nhưng một cách tìm kiếm dấu ngoặc đơn mở hoặc đóng thì tương đối dễ dàng. Ví dụ sau sẽ thực hiện tìm kiếm, từng hàng và nếu một trong hai ký tự được tìm thấy, nó sẽ đánh dấu hàng bằng cách làm cho nền màu vàng.

Sub HilightRows()

Dim TargetText1 As String     Dim TargetText As String     Dim oRow As Row     Dim iCol As Integer

'initialize the target characters to find     TargetText = "("

TargetText1 = ")"



'Make sure we're in a table     If Selection.Information(wdWithInTable) Then         'Clear all the old shading         Selection.Tables(1).Shading.BackgroundPatternColor = wdColorWhite         'do all the rows         For Each oRow In Selection.Tables(1).Rows             If InStr(oRow.Range.Text, TargetText) > 0 Then _               oRow.Shading.BackgroundPatternColor = wdColorYellow             If InStr(oRow.Range.Text, TargetText1) > 0 Then _               oRow.Shading.BackgroundPatternColor = wdColorYellow         Next oRow     End If 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 (11435) áp dụng cho Microsoft Word 2007, 2010, 2013, 2016, 2019 và Word trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: