返回一个 FirstLetterExceptions 集合,该集合代表了缩写词列表,Word 不会将在这些缩写词后的第一个字母自动置为大写。该列表与“‘自动更正’例外项”对话框中的“首字母大写”选项卡上的“自动更正”例外项列表相对应。此对话框由“工具”菜单上的“自动更正”命令打开。只读。
有关返回集合中单个成员的内容,请参阅返回集合中的对象。
本示例将“apt.”添至“首字母大写”的“自动更正”例外项列表中。
AutoCorrect.FirstLetterExceptions.Add "apt."
本示例删除指定的原有“首字母大写”的“自动更正”例外项。
Dim strException As String
Dim fleLoop As FirstLetterException
Dim blnMatch As Boolean
Dim intConfirm As Integer
strException = _
InputBox("Enter the First Letter exception to delete.")
blnMatch = False
For Each fleLoop in AutoCorrect.FirstLetterExceptions
If fleLoop.Name = strException Then
blnMatch = True
intConfirm = MsgBox("Are you sure you want to delete " _
& fleLoop.Name, 4)
If intConfirm = vbYes Then
fleLoop.Delete
End If
End If
Next fleLoop
If blnMatch <> True Then
MsgBox "There was no First Letter exception: " _
& strException
End If