Méthode Application.OrganizerDelete (Word)

  • Article

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

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.