Partager via

Propriété Application.AutoCorrect (Word)

  • Article

Renvoie un objet AutoCorrect qui contient les corrections automatiques, les options définies pour la fonctionnalité Correction automatique ainsi que les exceptions de correction automatique en cours. En lecture seule.

Syntaxe

expression. AutoCorrect

expressionUne variable qui représente un objetApplication.

Exemple

Cet exemple montre comment ajouter une correction automatique de remplacement. Après l'exécution du code, toutes les occurrences de « sr » qui sont tapées dans le document sont automatiquement remplacées par « Stella Richards ».

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

Cet exemple montre comment supprimer la correction automatique spécifiée si elle existe.

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

Voir aussi

Objet Application

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.