13/01/20 11:32:00.10
Sub test2()
Dim myOpt(1 To 16) As Boolean
With Options
myOpt(1) = .AutoFormatApplyHeadings
myOpt(2) = .AutoFormatApplyLists
myOpt(3) = .AutoFormatApplyBulletedLists
myOpt(4) = .AutoFormatApplyOtherParas
myOpt(5) = .AutoFormatReplaceQuotes
myOpt(6) = .AutoFormatReplaceSymbols
myOpt(7) = .AutoFormatReplaceOrdinals
myOpt(8) = .AutoFormatReplaceFractions
myOpt(9) = .AutoFormatReplacePlainTextEmphasis