Word에는 입력 내용을 자동으로 간소화 할 수있는 훌륭한 기능이 포함되어 있습니다. 자동 고침이라고하는이 기능은 선택한 특정 규칙에 맞게 입력 내용을 자동으로 변경합니다. 예를 들어, Word에서 문장의 첫 단어를 대문자로하거나 날짜 이름을 자동으로 대문자로 만들 수 있습니다.

(도구 메뉴에서 자동 고침을 선택하여 자동 고침 설정을 볼 수 있습니다.)

자동 고침이 입력하는 내용을 방해 할 수있는 경우가 있습니다. 기술 자료를 입력하는 경우 특히 그렇습니다.

그러나 자동 고침 기능을 해제 할 수있는 “마스터 스위치”는 없습니다. 대신 대화 상자를 표시하고 각 확인란을 차례로 해제해야합니다. 나중에 다시 사용하려면 동일한 프로세스를 다시 수행해야합니다.

다음 매크로는 자동 고침 설정을 빠르게 해제 할 수 있습니다. 매크로를 두 번 실행하면 자동 고침 설정이 원래 값으로 다시 설정됩니다. 매크로는 도구 모음에 추가되도록 설계되었으며 도구를 클릭하여 자동 고침을 변경할 수 있습니다.

Sub ToggleAC()

Dim State As String     Dim ACVal As Integer     Dim VarPass As Variant     Dim VarNum As Integer

VarNum = 0     For Each VarPass In ActiveDocument.Variables         If VarPass.Name = "ACState" Then VarNum = VarPass.Index     Next VarPass

If VarNum <> 0 Then         State = ActiveDocument.Variables.Item(VarNum).Value         ACVal = Val(Mid$(State$, 1, 1))

If ACVal <> 0 Then AutoCorrect.CorrectInitialCaps = True         ACVal = Val(Mid$(State$, 2, 1))

If ACVal <> 0 Then AutoCorrect.CorrectSentenceCaps = True         ACVal = Val(Mid$(State$, 3, 1))

If ACVal <> 0 Then AutoCorrect.CorrectDays = True         ACVal = Val(Mid$(State$, 4, 1))

If ACVal <> 0 Then AutoCorrect.CorrectCapsLock = True         ACVal = Val(Mid$(State$, 5, 1))

If ACVal <> 0 Then AutoCorrect.ReplaceText = True         ACVal = Val(Mid$(State$, 6, 1))

If ACVal <> 0 Then Options.AutoFormatAsYouTypeReplaceQuotes = True         ActiveDocument.Variables.Item(VarNum).Delete     Else         State = ""

State = State & Mid(Str(Abs(AutoCorrect.CorrectInitialCaps)), 2)

State = State & Mid(Str(Abs(AutoCorrect.CorrectSentenceCaps)), 2)

State = State & Mid(Str(Abs(AutoCorrect.CorrectDays)), 2)

State = State & Mid(Str(Abs(AutoCorrect.CorrectCapsLock)), 2)

State = State & Mid(Str(Abs(AutoCorrect.ReplaceText)), 2)

State = State & Mid(Str(Abs(Options.AutoFormatAsYouTypeReplaceQuotes)), 2)

ActiveDocument.Variables.Add "ACState", State         With AutoCorrect             .CorrectInitialCaps = False             .CorrectSentenceCaps = False             .CorrectDays = False             .CorrectCapsLock = False             .ReplaceText = False         End With         Options.AutoFormatAsYouTypeReplaceQuotes = True     End If End Sub

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (1738)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다.