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.