매우 짧은 문서를 작성하지 않는 한 정리는 작성에서 가장 어려운 부분 중 하나 일 수 있습니다. 다음 매크로는 문서를 단락별로 다시 확인하여 괄호 수가 균형을 이루고 있는지 확인합니다. 매크로는 문서의 각 단락에있는 왼쪽 괄호의 수를 계산하고 오른쪽 괄호의 수가 동일한 지 확인합니다. 그렇지 않은 경우 매크로는 오류를 나타내는 불균형 단락 앞에 단락을 삽입합니다.

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     Dim OpenChar As String     Dim CloseChar As String

OpenChar = "("

CloseChar = ")"

MsgText = "Unbalanced parens in the next paragraph"



NumPara = ActiveDocument.Paragraphs.Count     ReDim CheckP(NumPara)



For J = 1 To NumPara         CheckP(J) = False         WorkPara = ActiveDocument.Paragraphs(J).Range.Text         If Len(WorkPara) <> 0 Then             LeftParens = CountChars(WorkPara, OpenChar)

RightParens = CountChars(WorkPara, CloseChar)

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

여기에는 실제로 두 개의 매크로가 있습니다. CountChars 함수는 기본 CheckParens 매크로 내에서 호출됩니다. 문서에서 실제로 호출해야하는 것은이 후자의 매크로 (CheckParens)입니다. 매크로가 완료되면 문서를 검색하여 “불균형 괄호”라는 단어를 찾아 문제가있는 부분을 확인할 수 있습니다.

또한이 매크로가 작성되는 방식으로 다른 “쌍을 이루는”문자를 검색하도록 쉽게 수정할 수 있습니다. OpenChar, CloseChar 및 MsgText 변수에 할당 된 내용을 변경하기 만하면됩니다. 예를 들어, 일치하지 않는 대괄호를 확인하려면 다음과 같이 변수를 변경할 수 있습니다.

OpenChar = "["

CloseChar = "]"

MsgText = "Unbalanced brackets in the next paragraph"

_ 참고 : _

이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (1018)은 Microsoft Word 2007, 2010, 2013 및 2016에 적용됩니다. 여기에서 Word의 이전 메뉴 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

link : / word-Checking_for_Matching_Parentheses [일치하는 괄호 확인].