通过

Application.AutoCorrect Property

  • 项目
Word Developer Reference

Returns an AutoCorrect object that contains the current AutoCorrect options, entries, and exceptions. Read-only.

Syntax

expression.AutoCorrect

expression   A variable that represents an Application object.

Example

This example adds an AutoCorrect replacement entry. After this code runs, every instance of "sr" that's typed in a document will automatically be replaced with "Stella Richards."

Visual Basic for Applications 
  
    AutoCorrect.Entries.Add Name:= "sr", Value:= "Stella Richards"

This example deletes the specified AutoCorrect entry it if it exists.

Visual Basic for Applications 
  Dim strInput as String
Dim aceLoop as AutoCorrectEntry
Dim blnMatch as Boolean
Dim intConfirm as Integer

blnMatch = False


strInput = InputBox("Enter the AutoCorrect entry to delete.")


For Each aceLoop in AutoCorrect.Entries
With aceLoop
If .Name = strInput Then
blnMatch = True
intConfirm = _
MsgBox("Are you sure you want to delete " & _
.Name, 4)
If intConfirm = vbYes Then
.Delete
End If
End If
End With
Next aceLoop


If blnMatch <> True Then
MsgBox "There was no AutoCorrect entry: " & strInput
End If

See Also