Nathan은 문서에서 직책 (예 : “The Finance Manager should provide …​”)을 자본화하는 개인과 관련된 문제를 자주 발견합니다.

그는 제목이 문장을 시작할 때 첫 단어를 이니셜 캡으로 처리해야하는 타당한 이유가없는 한, 관리 제목의 모든 사용을 확인하고 소문자를 소문자로 처리하는 매크로를 원합니다. 그는 30 개의 관리 직함을 모두 입력하지 않고 두 번째 단어가 “관리자”또는 “관리자”인 두 단어 구문과 일치하도록 와일드 카드를 설정할 수 있는지 궁금합니다.

찾고있는 인스턴스 유형을 찾기 위해 와일드 카드 검색을 수행 할 수 있습니다. 고급 검색을 수행하고 와일드 카드 사용 확인란이 선택되어 있는지 확인한 다음 찾을 내용 필드에서이 패턴을 사용하기 만하면됩니다.

<[A-Za-z][a-z]{1,}>^32[Mm]anager*>

패턴은 두 번째 단어가 관리자 또는 관리자 인 두 단어를 찾습니다. 두 단어가 모두 대문자이거나 두 단어가 모두 소문자 인 경우 단어를 찾습니다.

문제는 와일드 카드를 사용하여 찾은 단어를 모두 소문자로 변경할 수 없다는 것입니다. 즉, 발견 된 내용을 수동으로 검사 한 다음 필요한 사항을 직접 변경해야합니다. 가끔이 작업을 수행해야하는 경우 찾기 및 바꾸기 대화 상자가 모달이 아니기 때문에 너무 번거롭지 않습니다. (즉, 문서를 편집 할 때 대화 상자를 화면에 열어 둔 채로두고 대화 상자에서 다음 찾기를 클릭하여 일치하는 다음 항목을 찾을 수 있습니다.)

이러한 변경을 자주 수행해야하는 경우 유일한 대안은 변경을 수행 할 매크로를 만드는 것입니다. 다음 매크로는 위에서 언급 한 동일한 패턴을 검색 한 다음 직책의 대문자를 올바르게 변경합니다. 매크로는 두 번째 단어가 “관리자”, “관리자”, “관리자”또는 “관리자”인 두 단어로 구성된 직함을 찾습니다. 그런 다음 제목이 문장으로 시작하지 않는 한 단어에서 대문자를 제거합니다.이 경우 두 번째 단어에서 대문자 만 제거됩니다.

Sub FixManagerCapitalisation()

Dim aRange As Range     Dim bRange As Range

With Selection.Find         .ClearFormatting         .Text = "<[A-Za-z][a-z]{1,}>^32[Mm]anager*>"

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindAsk         .MatchCase = False         .MatchWildcards = True         Do While .Execute             Set aRange = Selection.Range             Set bRange = Selection.Range             bRange.MoveEnd unit:=wdSentence             If bRange.Text <> Selection.Sentences(1).Text Then                 aRange = LCase(aRange.Words(1).Text) & Trim(aRange.Words(2))

End If             aRange = aRange.Words(1) & Trim(LCase(aRange.Words(2).Text))

aRange.Start = aRange.End             aRange.Select             .ClearFormatting         Loop     End With End Sub

_ 참고 : _

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

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

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

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