Martin은 최근 회사 법무 팀으로부터 회사가 만드는 문서에서보고 싶지 않은 문구 목록을 받았습니다.

예를 들어, 대부분의 경우 “솔루션 의지”라는 문구는 대신 “솔루션 의도 됨”이어야합니다. Martin은 아마도 문법 검사기를 통해 Word에서이 새로운 구문 목록을 자동으로 확인하고 플래그를 지정하는 방법이 있는지 궁금합니다.

불행히도 문법 검사기는 그렇게하지 않습니다. Word에서는 문법 검사기가 “확인”할 수 있도록 자신 만의 구문을 추가 할 수있는 방법이 없습니다.

하지만 두 가지 솔루션이 필요할 수 있습니다. 하나는 새 문서를 작성할 때 작동하고 다른 하나는 기존 문서를 확인하는 데 사용할 수 있습니다. “작성할 때”솔루션은 실제로 매우 쉽습니다. 자동 고침을 사용하여 문제가되는 문구를 자동으로 변경하기 만하면됩니다.

  1. Word 옵션 대화 상자를 표시합니다. (Word 2007에서는 Office 단추를 클릭 한 다음 Word 옵션을 클릭합니다. Word 2010 이상 버전에서는 리본의 파일 탭을 표시 한 다음 옵션을 클릭합니다.)

  2. 대화 상자의 왼쪽에서 교정을 클릭합니다.

  3. 자동 고침 옵션을 클릭합니다. Word는 자동 고침 대화 상자를 표시합니다.

(그림 1 참조)

  1. 바꾸기 상자에 문제가되는 문구를 입력합니다.

  2. With 상자에 선호하는 구를 입력합니다.

  3. 추가 버튼을 클릭합니다.

  4. 나머지 문제가되는 문구 각각에 대해 4-6 단계를 반복합니다.

  5. 닫기를 클릭하여 대화 상자를 닫습니다.

이제 문서에 입력 할 때 문제가되는 구를 입력하고 해당 구 뒤에 공백이나 구두점을 누를 때마다 Word에서 해당 구를 선호하는 구로 자동으로 바꿉니다.

물론 자동 고침 방식은 기존 문서에 도움이되지 않으며 다른 문서에서 텍스트 블록을 복사하여 현재 문서에 붙여 넣는 경우에도 도움이되지 않습니다. 이 경우 다른 접근 방식이 필요합니다. 가장 간단한 방법은 Word의 찾기 및 바꾸기 기능을 사용하여 문제가되는 구를 찾고 선호하는 구로 바꿀지 여부를 결정하는 것입니다. 수정해야하는 문구가 몇 개만있는 경우이 방법이 효과적 일 수 있습니다.

구문 목록이 상당히 길면 매크로를 사용하여 위반 사항을 표시하는 것이 좋습니다. 다음은 간단한 접근 방식입니다.

Sub ReplacePhrases()

Dim sBadPhrase(19) As String     Dim sGoodPhrase(19) As String     Dim iCount As Integer     Dim J As Integer

iCount = 6   ' Set to number of phrases

sBadPhrase(1) = "first offensive phrase"

sBadPhrase(2) = "second offensive phrase"

sBadPhrase(3) = "third offensive phrase"

sBadPhrase(4) = "fourth offensive phrase"

sBadPhrase(5) = "fifth offensive phrase"

sBadPhrase(6) = "sixth offensive phrase"



sGoodPhrase(1) = "first preferred phrase"

sGoodPhrase(2) = "second preferred phrase"

sGoodPhrase(3) = "third preferred phrase"

sGoodPhrase(4) = "fourth preferred phrase"

sGoodPhrase(5) = "fifth preferred phrase"

sGoodPhrase(6) = "sixth preferred phrase"



For J = 1 to iCount         With Selection.Find             .ClearFormatting             .Replacement.ClearFormatting             .Text = sBadPhrase(J)

.Replacement.Text = sGoodPhrase(J)

.Forward = True             .Format = False             .MatchWholeWord = False             .MatchCase = False             .MatchWildcards = False             .Wrap = wdFindContinue         End With         Selection.Find.Execute Replace:=wdReplaceAll     Next J End Sub

이 매크로는 sBadPhrase 배열에 저장된 값을 sGoodPhrase 배열에 저장된 구문으로 대량 교체합니다. 당신이해야 할 일은 당신의 구로 배열을 설정하고 정의한 구의 수와 같도록 iCount를 변경하는 것입니다.

(19 개 이상의 구문으로 이동하는 경우 두 배열의 선언도 충분히 커지도록 변경해야합니다.)

_ 참고 : _

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

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

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

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