Đối với một số tài liệu, bạn có thể cần phải gạch dưới thông tin trong dấu ngoặc kép. Ví dụ, đối với một số tài liệu pháp lý, bạn có thể cần tìm tất cả tài liệu được bao quanh bởi dấu ngoặc kép, sau đó gạch chân thông tin giữa các dấu ngoặc kép. Điều này khác với cách viết văn xuôi thông thường, trong đó bạn sẽ sử dụng gạch dưới hoặc dấu ngoặc kép, nhưng không sử dụng cả hai.

Nếu bạn có nhu cầu tìm kiếm tất cả văn bản được trích dẫn và gạch chân, bạn có thể sử dụng macro sau. Nó tìm kiếm dấu ngoặc kép và khi tìm thấy dấu ngoặc kép, nó sẽ gạch chân mọi thứ cho đến dấu ngoặc kép tiếp theo. Lưu ý rằng nó sẽ không thực sự tự gạch dưới các dấu ngoặc kép.

Sub UnderlineQuoted()

Dim bDelQuotes As Boolean     Dim bMvRt As Boolean     Selection.HomeKey Unit:=wdStory

' controls deletion of quote marks     bDelQuotes = False          With Selection.Find         .ClearFormatting         .Text = Chr(34)

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindStop         .Execute     End With

While Selection.Find.Found         Selection.MoveRight Unit:=wdCharacter, Count:=1         ' switch on selection extend mode         Selection.ExtendMode = True         bMvRt = True         ' find second quote of this pair         Selection.Find.Execute         If Selection.Find.Found Then             Selection.MoveLeft Unit:=wdCharacter, Count:=1             If Len(Selection.Range.Text) > 0 Then                 ' make it underlined                 Selection.Font.Underline = True                 ' delete quote marks, if appropriate                 If bDelQuotes Then                     Selection.Cut                     Selection.TypeBackspace                     Selection.Delete Unit:=wdCharacter, Count:=1                     Selection.Paste                     bMvRt = False                 End If             End If         End If         Selection.ExtendMode = False         If bMvRt Then             Selection.Collapse Direction:=wdCollapseEnd             Selection.MoveRight Unit:=wdCharacter, Count:=1         End If         Selection.Find.Execute     Wend End Sub

Chú ý đến cài đặt của biến bDelQuotes. Nếu được đặt thành Sai (như ở đây), thì bản thân các dấu ngoặc kép sẽ không bị macro xóa. Nếu bạn thay đổi giá trị của biến thành True, thì macro sẽ loại bỏ các dấu ngoặc kép trong tài liệu. Lưu ý rằng nó chỉ loại bỏ các dấu ngoặc kép nếu nó thực sự gạch dưới văn bản giữa các dấu ngoặc kép đó.

_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 (10473) áp dụng cho Microsoft Word 2007, 2010, 2013 và 2016. 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: