일부 문서의 경우 따옴표 안에 정보에 밑줄을 쳐야 할 수 있습니다. 예를 들어, 일부 법률 문서의 경우 따옴표로 둘러싸인 모든 자료를 찾은 다음 따옴표 사이에 밑줄이 그어진 정보를 만들어야 할 수 있습니다. 이것은 밑줄이나 따옴표 중 하나를 사용하지만 둘 다 사용하지는 않는 일반 산문 쓰기와 다릅니다.

인용 된 모든 텍스트를 검색하고 밑줄을 표시해야하는 경우 다음 매크로를 사용할 수 있습니다. 따옴표를 검색하고 하나를 찾으면 다음 따옴표까지 모든 것에 밑줄을 긋습니다. 실제로 따옴표 자체에 밑줄을 긋지는 않습니다.

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

bDelQuotes 변수의 설정에주의하십시오. False로 설정하면 (여기에있는 그대로) 따옴표 자체는 매크로에 의해 삭제되지 않습니다. 변수 값을 True로 변경하면 매크로가 문서에서 따옴표를 제거합니다. 실제로 따옴표 사이에 텍스트에 밑줄을 긋는 경우에만 따옴표가 제거됩니다.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (1589)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다. Word의 리본 인터페이스에 대한이 팁 버전 (Word 2007)을 찾을 수 있습니다. 이후) 여기 :

link : / wordribbon-Underlining_Quoted_Text [인용 된 텍스트 밑줄].