Format related procedures in class EmailOptions (Word VBA)

This page presents procedures from class EmailOptions related to the theme Format: AutoFormatAsYouTypeApplyBorders, AutoFormatAsYouTypeApplyBulletedLists, AutoFormatAsYouTypeApplyClosings, AutoFormatAsYouTypeApplyDates, AutoFormatAsYouTypeApplyFirstIndents, AutoFormatAsYouTypeApplyHeadings, AutoFormatAsYouTypeApplyNumberedLists, AutoFormatAsYouTypeApplyTables, AutoFormatAsYouTypeAutoLetterWizard, AutoFormatAsYouTypeDefineStyles, AutoFormatAsYouTypeDeleteAutoSpaces, AutoFormatAsYouTypeFormatListItemBeginning, AutoFormatAsYouTypeInsertClosings, AutoFormatAsYouTypeInsertOvers, AutoFormatAsYouTypeMatchParentheses, AutoFormatAsYouTypeReplaceFarEastDashes, AutoFormatAsYouTypeReplaceFractions, AutoFormatAsYouTypeReplaceOrdinals, AutoFormatAsYouTypeReplacePlainTextEmphasis, AutoFormatAsYouTypeReplaceQuotes, AutoFormatAsYouTypeReplaceSymbols, ComposeStyle, NewColorOnReply, PlainTextStyle, ReplyStyle, UseThemeStyle and UseThemeStyleOnReply

AutoFormatAsYouTypeApplyBorders

True if a series of three or more hyphens (-), equal signs (=), or underscore characters (_) are automatically replaced by a specific border line when the ENTER key is pressed.

Hyphens (-) are replaced by a 0.75-point line, equal signs (=) are replaced by a 0.75-point double line, and underscore characters (_) are replaced by a 1.5-point line.

Options.AutoFormatAsYouTypeApplyBorders = True

AutoFormatAsYouTypeApplyBulletedLists

True if bullet characters (such as asterisks, hyphens, and greater-than signs) are replaced with bullets.

If set to True, Word replaces bullet character with bullets defined in the Bullets And Numbering dialog box (Format menu) as you type.

Options.AutoFormatAsYouTypeApplyBulletedLists = True

AutoFormatAsYouTypeApplyClosings

True for Microsoft Word to automatically apply the Closing style to letter closings as you type.

Sub AutoClosings() 
 Options.AutoFormatAsYouTypeApplyClosings = True 
End Sub

AutoFormatAsYouTypeApplyDates

True for Microsoft Word to automatically apply the Date style to dates as you type.

Sub AutoApplyDates() 
 Options.AutoFormatAsYouTypeApplyDates = True 
End Sub

AutoFormatAsYouTypeApplyFirstIndents

True for Microsoft Word to automatically replace a space entered at the beginning of a paragraph with a first-line indent.

Sub ApplyFirstIndents() 
 Options.AutoFormatAsYouTypeApplyFirstIndents = True 
End Sub

AutoFormatAsYouTypeApplyHeadings

True if styles are automatically applied to headings as you type.

Options.AutoFormatAsYouTypeApplyHeadings = True

AutoFormatAsYouTypeApplyNumberedLists

True if paragraphs are automatically formatted as numbered lists.

If set to True, numbered lists use a numbering scheme from the Bullets and Numbering dialog box (Format menu), according to what's typed. For example, if a paragraph starts with "1.1" and a tab character, Word automatically inserts "1.2" and a tab character when the ENTER key is pressed.

Options.AutoFormatAsYouTypeApplyNumberedLists = True

AutoFormatAsYouTypeApplyTables

True if Word automatically creates a table when you type a plus sign, a series of hyphens, another plus sign, and so on, and then press ENTER.

The plus signs become the column borders, and the hyphens become the column widths.

Options.AutoFormatAsYouTypeApplyTables = True

AutoFormatAsYouTypeAutoLetterWizard

True for Microsoft Word to automatically start the Letter Wizard when the user enters a letter salutation or closing.

Sub AutoLetterWizard() 
 Options.AutoFormatAsYouTypeAutoLetterWizard = True 
End Sub

AutoFormatAsYouTypeDefineStyles

True if Word automatically creates new styles based on manual formatting.

Options.AutoFormatAsYouTypeDefineStyles = True

AutoFormatAsYouTypeDeleteAutoSpaces

True for Microsoft Word to automatically delete spaces inserted between Japanese and Latin text as you type.

Sub AutoDeleteSpaces() 
 Options.AutoFormatAsYouTypeDeleteAutoSpaces = True 
End Sub

AutoFormatAsYouTypeFormatListItemBeginning

True if Word repeats character formatting applied to the beginning of a list item to the next list item.

Options.AutoFormatAsYouTypeFormatListItemBeginning = True

AutoFormatAsYouTypeInsertClosings

True for Microsoft Word to automatically insert the corresponding memo closing when the user enters a memo heading.

Sub AutoInsertClosings() 
 Options.AutoFormatAsYouTypeInsertClosings = True 
End Sub

AutoFormatAsYouTypeInsertOvers

True for Microsoft Word to automatically insert "以上" when the user enters "記" or "案".

Options.AutoFormatAsYouTypeInsertOvers = True

AutoFormatAsYouTypeMatchParentheses

True for Microsoft Word to automatically correct improperly paired parentheses.

Sub AutoMatchParentheses() 
 Options.AutoFormatAsYouTypeMatchParentheses = True 
End Sub

AutoFormatAsYouTypeReplaceFarEastDashes

True for Microsoft Word to automatically correct long vowel sounds and dashes.

Sub AutoFarEastDashes() 
 Options.AutoFormatAsYouTypeReplaceFarEastDashes = True 
End Sub

AutoFormatAsYouTypeReplaceFractions

True if typed fractions are replaced with fractions from the current character set as you type; for example, "1/2" is replaced with "½.

Options.AutoFormatAsYouTypeReplaceFractions = False

AutoFormatAsYouTypeReplaceOrdinals

True if the ordinal number suffixes "st", "nd", "rd", and "th" are replaced with the same letters in superscript as you type; for example, "1st" is replaced with "1" followed by "st" formatted as superscript.

Options.AutoFormatAsYouTypeReplaceOrdinals = True

AutoFormatAsYouTypeReplacePlainTextEmphasis

True if manual emphasis characters are automatically replaced with character formatting as you type; for example, "bold" is changed to " bold ".

Options.AutoFormatAsYouTypeReplacePlainTextEmphasis = True

AutoFormatAsYouTypeReplaceQuotes

True if straight quotation marks are automatically changed to smart (curly) quotation marks as you type.

Options.AutoFormatAsYouTypeReplaceQuotes = True

AutoFormatAsYouTypeReplaceSymbols

True if two consecutive hyphens (--) are replaced with an en dash (-) or an em dash (—) as you type.

If the hyphens are typed with leading and trailing spaces, Word replaces the hyphens with an en dash; if there are no trailing spaces, the hyphens are replaced with an em dash.

EmailOptions.AutoFormatAsYouTypeReplaceSymbols = True

ComposeStyle

Returns a Style object that represents the style used to compose new email messages.

MsgBox Application.EmailOptions.ComposeStyle.NameLocal

NewColorOnReply

True specifies whether a user needs to choose a new color for reply text when replying to email.

Use the NewColorOnReply property if you want the reply text of email messages sent from Microsoft Word to be a different color than the original message.

Sub NewColor() 
 With Application.EmailOptions 
 If .NewColorOnReply = False Then 
 .ReplyStyle.Font.Color = wdColorBlue 
 End If 
 End With 
End Sub

PlainTextStyle

Returns the Style object that represents the text attributes for email messages that are sent or received using plain text.

Sub PlainTxt() 
 With Application.EmailOptions.PlainTextStyle 
 .Font.Name = "Tahoma" 
 .Font.Size = 10 
 End With 
End Sub

ReplyStyle

Returns a Style object that represents the style used when replying to email messages.

MsgBox Application.EmailOptions.ReplyStyle.NameLocal

UseThemeStyle

True if new email messages use the character style defined by the default email message theme.

If no default email message theme has been specified, the UseThemeStyle property has no effect.

Application.EmailOptions.ThemeName = "artsy" 
Application.EmailOptions.UseThemeStyle = True

UseThemeStyleOnReply

True for Microsoft Word to use a theme when replying to email.

Sub NewTheme() 
 With Application.EmailOptions 
 If .UseThemeStyle = True Then 
 .UseThemeStyleOnReply = True 
 End If 
 End With 
End Sub