David는 작가이며 Word의 맞춤법, 스타일 및 문법 검사기를 많이 사용합니다. 때때로 그는 문법 수정에 대한 Word의 제안이 나쁘다는 것을 발견하고 무시하는 법을 배웠습니다. 그가 고민하는 한 가지는 대화 주위에 인용 부호를 사용하는 것입니다.

David가 문장의 끝이나 시작 부분에서 인용 부호를 생략했는지 Word에서 인식하지 못합니다. 그는 몇 년 전에 문서에 초록색 따옴표를 남긴 워드 프로세싱 프로그램을 사용하여 누락 된 따옴표를 표시 한 것을 기억합니다. 그는 누락 된 따옴표를 인식하도록 Word를 만들 수 있는지 궁금합니다.

Word에서 기본적으로이 작업을 수행 할 수있는 방법은 없습니다. 그 이유는 견적의 시작과 끝을 결정하는 것이 거의 불가능하다는 사실로 귀결됩니다. 예를 들어, 4 개의 문장이 포함 된 단락이 있고 해당 단락 내에 인용 부호를 배치하는 경우 Word에서 해당 부호가 인용문의 시작 또는 끝을 지정하는지 여부를 어떻게 결정합니까? 시작 인 경우, 종료 표시가 문장의 끝인지, 두 번째 문장의 끝인지 또는 단락의 끝인지 Word에서 어떻게 알 수 있습니까? (따옴표가 끝 따옴표 인 경우에도 동일한 수수께끼가 발생하지만 배치 혼란이 오른쪽 대신 왼쪽으로 확장됩니다.)

이 잠재적 인 혼동을 닫는 따옴표가 현재 단락에 없을 수도 있다는 사실과 결합하십시오. 표시되는 대화가 실제로 끝날 때 일부 이후 단락의 끝에있을 수 있습니다.

그러나 최소한 몇 가지 기본 검사를 수행하는 매크로를 개발할 수 있습니다. 다음 매크로는 문서의 시작 부분으로 이동하여 첫 번째 따옴표를 검색합니다. 그런 다음 해당 문자에서 단락 끝까지 모든 것을 검사합니다. 현명하지 않은 따옴표를 사용하는 경우 기본적으로 따옴표가 짝수인지 확인합니다. 스마트 따옴표를 사용하는 경우 각 시작 따옴표에 대한 끝 따옴표가 있는지 확인합니다. 두 조건 중 하나가 거짓이면 텍스트가 강조 표시됩니다.

Sub MarkUnevenQuotes()

Dim sRaw As String     Dim iNorm As Integer     Dim iSmart As Integer     Dim J As Long

Selection.HomeKey Unit:=wdStory     Application.ScreenUpdating = False     Selection.Find.ClearFormatting     With Selection.Find         .Text = """"

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindStop         .Format = True         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute

While Selection.Find.Found         Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend         Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend         sRaw = Selection.Text         iNorm = 0         iSmart = 0         For J = 1 To Len(sRaw)

If Mid(sRaw, J, 1) = Chr(34) Then                 If iNorm > 0 Then                     iNorm = iNorm - 1                 Else                     iNorm = iNorm + 1                 End If             End If             If Mid(sRaw, J, 1) = Chr(147) Then                 iSmart = iSmart + 1             End If             If Mid(sRaw, J, 1) = Chr(148) Then                 iSmart = iSmart - 1             End If         Next J         If iNorm > 0 Or iSmart > 0 Then             Selection.Range.HighlightColorIndex = wdYellow         End If         Selection.Collapse Direction:=wdCollapseEnd         Selection.Find.Execute     Wend     Selection.HomeKey Unit:=wdStory     Application.ScreenUpdating = True End Sub

매크로가 완료되면 시각적으로 확인해야하는 경우 강조 표시되는 텍스트 선택 항목이 많아집니다. 그러나 매크로는 첫 번째 따옴표가 발생하는 단락 외부에있는 끝 따옴표를 찾지 않습니다.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (13293)은 Office 365의 Microsoft Word 2007, 2010, 2013, 2016 및 Word에 적용됩니다.