Public Sub WorkWithOptions()
	'работа с объектом Options
	Options.AutoFormatAsYouTypeReplaceFractions = True
	Options.AllowDragAndDrop = True
	Options.CheckGrammarWithSpelling = True
	Options.EnableSound = False
	Options.MonthNames = wdMonthNamesEnglish
	Options.PrintComments = True
End Sub