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


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


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


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

Sub AutoClosings() 
 Options.AutoFormatAsYouTypeApplyClosings = True 
End Sub


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

Sub AutoApplyDates() 
 Options.AutoFormatAsYouTypeApplyDates = True 
End Sub


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


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

Options.AutoFormatAsYouTypeApplyHeadings = True


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


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


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


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

Options.AutoFormatAsYouTypeDefineStyles = True


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

Sub AutoDeleteSpaces() 
 Options.AutoFormatAsYouTypeDeleteAutoSpaces = True 
End Sub


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

Options.AutoFormatAsYouTypeFormatListItemBeginning = True


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


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

Options.AutoFormatAsYouTypeInsertOvers = True


True for Microsoft Word to automatically correct improperly paired parentheses.

Sub AutoMatchParentheses() 
 Options.AutoFormatAsYouTypeMatchParentheses = True 
End Sub


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

Sub AutoFarEastDashes() 
 Options.AutoFormatAsYouTypeReplaceFarEastDashes = True 
End Sub


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


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


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

Options.AutoFormatAsYouTypeReplacePlainTextEmphasis = True


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

Options.AutoFormatAsYouTypeReplaceQuotes = True


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


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

MsgBox Application.EmailOptions.ComposeStyle.NameLocal


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


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


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

MsgBox Application.EmailOptions.ReplyStyle.NameLocal


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


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