Propriedade Application.AutoCorrect (Word)

Retorna um objeto AutoCorrect que contém as opções, entradas e exceções atuais da AutoCorreção. Somente leitura.

Sintaxe

expression. AutoCorrect

expressão Uma variável que representa um Aplicativo objeto.

Exemplo

Este exemplo adiciona uma entrada de substituição da AutoCorreção. Depois desse código ser executado, cada ocorrência de "sr" digitada em um documento será automaticamente substituída por "Stella Richards".

AutoCorrect.Entries.Add Name:= "sr", Value:= "Stella Richards"

Este exemplo exclui a entrada de AutoCorreção especificada, se ela existir.

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

Confira também

Objeto de Aplicativo

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.