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