- 657 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2013/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
