Kiểm tra các dấu ngoặc đơn (Microsoft Word)
Trừ khi bạn đang viết những tài liệu rất ngắn, việc dọn dẹp có thể là một trong những phần khó nhất của quá trình viết. Macro sau đây kiểm tra kỹ tài liệu của bạn, từng đoạn một, để xác định xem bạn có số lượng dấu ngoặc đơn cân bằng hay không. Macro đếm số lượng dấu ngoặc đơn bên trái trong mỗi đoạn tài liệu của bạn và đảm bảo rằng bạn có cùng số lượng dấu ngoặc đơn bên phải. Nếu bạn không, macro sẽ chèn một đoạn trước đoạn không cân bằng cho biết lỗi.
Sub CheckParens() Dim WorkPara As String Dim CheckP() As Boolean Dim NumPara As Integer, J As Integer Dim LeftParens As Integer, RightParens As Integer Dim MsgText As String NumPara = ActiveDocument.Paragraphs.Count ReDim CheckP(NumPara) MsgText = "Unbalanced parens in the next paragraph" For J = 1 To NumPara CheckP(J) = False WorkPara = ActiveDocument.Paragraphs(J).Range.Text If Len(WorkPara) <> 0 Then LeftParens = CountChars(WorkPara, "(") RightParens = CountChars(WorkPara, ")") If LeftParens <> RightParens Then CheckP(J) = True End If Next J For J = NumPara To 1 Step -1 If CheckP(J) Then Selection.HomeKey Unit:=wdStory, Extend:=wdMove If J > 1 Then Selection.MoveDown Unit:=wdParagraph, _ Count:=(J - 1), Extend:=wdMove End If Selection.InsertParagraphBefore Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.Style = "Normal" Selection.TypeText Text:=MsgText End If Next J End Sub Private Function CountChars(A As String, C As String) As Integer Dim Count As Integer Dim Found As Integer Count = 0 Found = InStr(A, C) While Found <> 0 Count = Count + 1 Found = InStr(Found + 1, A, C) Wend CountChars = Count End Function
Lưu ý rằng thực sự có hai macro ở đây. Hàm CountChars được gọi từ bên trong macro CheckParens chính. Macro thứ hai này (CheckParens) là macro mà bạn thực sự nên gọi trên tài liệu của mình. Khi macro hoàn thành, bạn có thể tìm kiếm trong tài liệu, tìm từ “Unbalanced parens” để xem bạn có thể gặp vấn đề ở đâu.
_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 (1308) áp dụng cho Microsoft Word 97, 2000, 2002 và 2003. Bạn có thể tìm 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: