ToolsOptionsAutoFormat

Syntax

ToolsOptionsAutoFormat [.PreserveStyles = number] [, .ApplyStylesHeadings = number] [, .ApplyStylesLists = number] [, .ApplyStylesOtherParas = number] [, .AdjustParaMarks = number] [, .AdjustTabsSpaces = number] [, .AdjustEmptyParas = number] [, .ReplaceQuotes = number] [, .ReplaceSymbols = number] [, .ReplaceBullets = number] [, .ApplyBulletedLists = number] [, .ReplaceOrdinals = number] [, .ReplaceFractions = number] [, .ApplyBorders = number] [, .ApplyNumberedLists = number] [, .ShowOptionsFor = number]

Remarks

Sets automatic formatting options for FormatAutoFormat or the AutoFormat As You Type feature (Word version 7.0 only). The arguments for the ToolsOptionsAutoFormat statement correspond to the options on the AutoFormat tab in the Options dialog box (Tools menu). Note that the .ReplaceBullets, .AdjustParaMarks, .AdjustTabsSpaces, and .AdjustEmptyParas arguments are retained for backward compatibility with Word version 6.0 macros.

Argument

Explanation

.PreserveStyles

If 1, preserves previously applied styles.

In Word version 7.0, this argument is ignored when .ShowOptionsFor is set to 0 (zero).

.ApplyStylesHeadings

If 1, applies automatic styles to headings.

In Word version 7.0, this argument is ignored when .ShowOptionsFor is set to 0 (zero).

.ApplyStylesLists

If 1, applies automatic styles to lists.

In Word version 7.0, this argument is ignored when .ShowOptionsFor is set to 0 (zero).

.ApplyStylesOtherParas

If 1, applies automatic styles to paragraphs.

.AdjustParaMarks

If 1, adds or removes paragraph marks in a document (for example, removes extra paragraph marks from lines of text copied from an electronic mail message).

.AdjustTabsSpaces

If 1, adjusts tab settings and spaces automatically.

.AdjustEmptyParas

If 1, removes empty paragraph marks used to add space between paragraphs.

.ReplaceQuotes

If 1, replaces straight double quotation marks (" "), single quotation marks (' '), and apostrophes ( ' ) with "smart" quotation marks (" " or ' ') and apostrophes ( ' ).

.ReplaceSymbols

If 1, replaces "(r)", "(c)", and "(tm)" with the Ò, Ó, and Ô symbols from the Symbol dialog box (Insert menu).

.ReplaceBullets

If 1, replaces bullet characters with bullets from the Bullets And Numbering dialog box (Format menu).

If -1, the setting specified by .ApplyBulletedLists is used.

This argument is ignored when .ShowOptionsFor is set to 0 (zero).

.ApplyBulletedLists

If 1, replaces bullet characters with bullets from the Bullets And Numbering dialog box (Format menu), according to what is typed. For example, "=>" is replaced with "ð".

This argument is available only in Word version 7.0.

.ReplaceOrdinals

If 1, replaces "st", "nd", "rd", or "th" in ordinal numbers with the same letters in superscript. For example, "1st" is replaced with "1st."


Argument

Explanation

.ReplaceFractions

If 1, replaces typed fractions with fractions from the current character set. For example, 1/2 is replaced with ½.

.ApplyBorders

If 1, applies borders by replacing a series of three or more minus signs (-), equal signs (=), or underlines ( _ ) with a specific border line. For example, a series of three or more equal signs (=) is replaced by a double border line.

This argument is available only in Word version 7.0. It is ignored when .ShowOptionsFor is set to 1 or is omitted.

.ApplyNumberedLists

If 1, interprets and formats paragraphs as numbered lists with a numbering scheme from the Bullets And Numbering dialog box (Format menu), according to what is typed. For example, if a paragraph starts with "1.1" and a tab, Word automatically inserts "1.2" and a tab after the ENTER key is pressed.

This argument is available only in Word version 7.0. It is ignored when .ShowOptionsFor is set to 1 or is omitted.

.ShowOptionsFor

Specifies which group of options are set by the ToolsOptionsAutoFormat statement:

0 (zero) AutoFormat As You Type feature

1 or omitted FormatAutoFormat statement

This argument is available only in Word version 7.0.


See Also

FormatAutoFormat, ToolsAutoCorrect