Propriedade AutoCorrect.Entries (Word)

Retorna uma coleção AutoCorrectEntries que representa a lista atual de entradas AutoCorreção.

Sintaxe

expression. Entries

Expressão Uma variável que representa um objeto 'AutoCorreção'.

Comentários

Essa lista corresponde à lista de entradas de AutoCorreção da guia AutoCorreção da caixa de diálogo AutoCorreção. Somente leitura. Para obter informações sobre como retornar um único membro de uma coleção, consulte Retornando um objeto de uma coleção.

Exemplo

Este exemplo exibe o número total de entradas de AutoCorreção.

MsgBox AutoCorrect.Entries.Count

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

Dim strEntry As String 
Dim acEntry As AutoCorrectEntry 
Dim blnMatch As Boolean 
Dim intResponse As Integer 
 
strEntry = InputBox("Enter the AutoCorrect entry to delete.") 
blnMatch = False 
 
For Each acEntry in AutoCorrect.Entries 
 If acEntry.Name = strEntry Then 
 blnMatch = True 
 intResponse = _ 
 MsgBox("Are you sure you want to delete " _ 
 & acEntry.Name, 4) 
 If intResponse = vbYes Then 
 acEntry.Delete 
 End If 
 End If 
Next acEntry 
 
If blnMatch <> True Then 
 MsgBox "There was no AutoCorrect entry: " & strEntry 
End If

Confira também

Objeto AutoCorrect

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.