Propriedade AutoCorrect.Entries (Word)
Retorna uma coleção AutoCorrectEntries que representa a lista atual de entradas AutoCorreção.
expression. Entries
Expressão Uma variável que representa um objeto 'AutoCorreção'.
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.
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
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.