아그네스는 “섹션”이라는 단어의 모든 인스턴스와 단어 다음에 나오는 보조 정보에 자동으로 밑줄을 긋는 방법이 있는지 물었습니다.

예를 들어 문서에 “Section 2.3 (b) (i)”

과 같은 텍스트가 포함될 수 있습니다. 또는 “섹션 5.21″또는 “섹션 12.12 (a)”및 Agnes는이 텍스트를 찾고 모두 밑줄을 긋기를 원합니다.

시도 할 몇 가지가 있습니다. 우선 표준 찾기 및 바꾸기를 수행 할 수 있지만 텍스트를 좀 더 “표준”으로 만들 수있는 경우에만 가능합니다. 일치 할 수있는 패턴이 없으면 텍스트의 가능한 모든 인스턴스를 찾는 찾기 및 바꾸기를 수행하는 것이 사실상 불가능합니다.

그러나 가능성은 모든 가능성을 살펴 보는 매크로를 기록하는 것입니다. “섹션”이라는 단어 다음에 공백, 숫자, 마침표, 더 많은 숫자, (선택적으로) 닫는 괄호까지 포함하여 모든 것을 찾아야하므로 반드시 단순한 매크로는 아닙니다. 그것은 발생해야 할 상당히 많은 텍스트 분석입니다.

시작할 곳은 와일드 카드 검색입니다. 다음 검색 구문은 Section이라는 단어 다음에 “숫자 점 번호”가 오는 것을 찾습니다

패턴 :

Section [0-9]{1,}.[0-9]{1,}

이 검색 패턴이 매크로에서 사용되는 경우 매크로는 텍스트를 성공적으로 찾을 때마다 찾은 내용을 확장하고 괄호 문자가 포함되어 있는지 확인할 수 있습니다. 다음 매크로가이 작업을 수행합니다.

Sub ULWords()

Selection.Find.ClearFormatting     With Selection.Find         .Text = "Section [0-9]{1,}.[0-9]{1,}"

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = True         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute     While Selection.Find.Found         Selection.MoveRight Unit:=wdCharacter, _           Count:=1, Extend:=wdExtend             While Right(Selection.Text, 1) = "("

Selection.MoveRight Unit:=wdCharacter, _                   Count:=1, Extend:=wdExtend                 While Right(Selection.Text, 1) <> ")"

Selection.MoveRight Unit:=wdCharacter, _                       Count:=1, Extend:=wdExtend                 Wend                 Selection.MoveRight Unit:=wdCharacter, _                   Count:=1, Extend:=wdExtend             Wend         Selection.MoveRight Unit:=wdCharacter, _           Count:=-1, Extend:=wdExtend         Selection.Font.Underline = True         Selection.MoveRight Unit:=wdCharacter, Count:=1         Selection.Find.Execute     Wend End Sub

매크로는 처음에 와일드 카드 검색을 사용하여 “섹션”이라는 단어와 “숫자 점 번호”가 뒤 따르는 모든 인스턴스를 찾습니다.

무늬. 인스턴스가 발견되면 한 문자만큼 확장됩니다.

해당 문자가 여는 괄호이면 닫는 괄호를 찾을 때까지 선택이 확장됩니다. 여는 / 닫는 괄호를 찾는이 프로세스는 계속되며 더 이상 세트가 없으면 전체 확장 선택에 밑줄이 표시됩니다. 이 프로세스는 전체 문서가 검색 될 때까지 계속됩니다.

_ 참고 : _

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

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

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

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

link : / wordribbon-Underlining_Section_References_Automatically [자동으로 섹션 참조 밑줄 지정].