Включаются все флажки With AutoCorrect
|
Public Sub WorkWithAutoCorrect() 'Работа с объектом AutoCorrect ' Включаются все флажки With AutoCorrect .CorrectInitialCaps = True .CorrectSentenceCaps = True .CorrectDays = True .CorrectCapsLock = True .ReplaceText = True .ReplaceTextFromSpellingChecker = True .CorrectKeyboardSetting = True 'В коллекцию Entries, задающую замены при автокоррекции, 'добавляются два элемента. .Entries.AddName:="ДЕ", Value:="Диаграмма Excel" .Entries.AddName:="ГЕ", Value:="График Excel" End With End Sub |
| Листинг 1.9. |
| Закрыть окно |
