Méthode Application.OrganizerDelete (Word)
Supprime le style, l'insertion automatique, la barre d'outils ou l'élément de projet de macro spécifié contenu dans un document ou un modèle.
Syntaxe
expression. OrganizerDelete( _Source_ , _Name_ , _Object_ )
expression Obligatoire. Variable qui représente un objet Application.
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Source | Obligatoire | Chaîne | Nom de fichier du document ou modèle contenant l'élément que vous voulez supprimer. |
| Name | Obligatoire | Chaîne | Nom du style, de l'insertion automatique, barre d'outils ou macro que vous voulez supprimer. |
| Object | Obligatoire | WdOrganizerObject | Type de l'élément à copier. |
Exemple
Cet exemple montre comment supprimer la barre d'outils « Custom 1 » du modèle Normal.
Dim cbLoop As CommandBar
For Each cbLoop In CommandBars
If cbLoop.Name = "Custom 1" Then
Application.OrganizerDelete Source:=NormalTemplate.Name, _
Name:="Custom 1", _
Object:=wdOrganizerObjectCommandBars
End If
Next cbLoop
Cet exemple montre comment inviter l'utilisateur à supprimer l'ensemble des insertions automatiques contenues dans le modèle associé au document actif. Si l'utilisateur clique sur le bouton Oui, les insertions automatiques sont supprimées.
Dim atEntry As AutoTextEntry
Dim intResponse As Integer
For Each atEntry In _
ActiveDocument.AttachedTemplate.AutoTextEntries
intResponse = _
MsgBox("Do you want to delete the " & atEntry.Name _
& " AutoText entry?", vbYesNoCancel)
If intResponse = vbYes Then
With ActiveDocument.AttachedTemplate
Application.OrganizerDelete _
Source:= .Path & "\" & .Name, _
Name:=atEntry.Name, _
Object:=wdOrganizerObjectAutoText
End With
ElseIf intResponse = vbCancel Then
Exit For
End If
Next atEntry
Voir aussi
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.