Word включает замечательную функцию, позволяющую автоматически упростить вводимый вами текст. Эта функция, называемая автозаменой, автоматически вносит изменения в вводимый текст в соответствии с выбранными вами правилами. Например, вы можете заставить Word использовать первое слово ваших предложений с заглавной буквы или автоматически использовать заглавные буквы в названиях дней. (Вы можете просмотреть свои настройки автозамены, выбрав Автозамена в меню Инструменты.)
Бывают случаи, когда автозамена может мешать тому, что вы печатаете. Это особенно верно, если вы набираете технические материалы. Однако не существует «главного переключателя», который позволял бы отключить функцию автозамены. Вместо этого вы должны отобразить диалоговое окно и по очереди снять все флажки. Когда позже вы захотите снова включить его, вам придется повторить тот же процесс еще раз.
Следующий макрос может быстро отключить ваши настройки автозамены. При повторном запуске макроса параметры автозамены возвращаются к исходным значениям. Макрос предназначен для добавления на панель инструментов, после чего вы можете щелкнуть инструмент, чтобы изменить автозамену.
Sub ToggleAC () Dim State As String Dim ACVal As Integer Dim VarPass As Variant Dim VarNum Как целое число VarNum = 0 для каждого VarPass в ActiveDocument.Variables Если VarPass.Name = "ACState" Затем VarNum = VarPass.Index Следующий VarPass Если VarNum 0 Тогда State = ActiveDocument.Variables.Item (VarNum) .Value ACVal = Val ( Mid $ (State $, 1, 1)) Если ACVal 0, то AutoCorrect.CorrectInitialCaps = True ACVal = Val (Mid $ (State $, 2, 1)) Если ACVal 0, то AutoCorrect.CorrectSentenceCaps = True ACVal = Val (Mid $ (State $, 3, 1)) Если ACVal 0, то AutoCorrectDays = True ACVal = Val (Mid $ (State $, 4, 1)) Если ACVal 0, то AutoCorrect.CorrectCapsLock = True ACVal = Val (Mid $ (State $, 5, 1)) Если ACVal 0, то автозамена.ReplaceText = True ACVal = Val (Mid $ (State $, 6, 1)) Если ACVal 0, то Options.AutoFormatAsYouTypeReplaceQuotes = Истина ActiveDocument.Variables.Item (VarNum). Удалить остальное состояние = "" 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», состояние с автозаменой .CorrectInitialCaps = False .CorrectSentenceCaps = False .CorrectDays = True. IfEnd Sub