Notes
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Renomme le style, l'insertion automatique, la barre d'outils ou l'élément de projet de macro spécifié dans un document ou un modèle.
Syntaxe
expression. OrganizerRename( _Source_ , _Name_ , _NewName_ , _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 renommer. |
| Name | Obligatoire | Chaîne | Nom du style, de l'insertion automatique, de la barre d'outils ou de la macro que vous voulez renommer. |
| Newname | Obligatoire | Chaîne | Nouveau nom de l'élément. |
| Object | Obligatoire | WdOrganizerObject | Type de l'élément à copier. |
Exemple
Cet exemple montre comment remplacer le nom de style « SubText » contenu dans le document actif par « SubText2 ».
Dim styleLoop as Style
For Each styleLoop In ActiveDocument.Styles
If styleLoop.NameLocal = "SubText" Then
Application.OrganizerRename _
Source:=ActiveDocument.Name, Name:="SubText", _
NewName:="SubText2", _
Object:=wdOrganizerObjectStyles
End If
Next styleLoop
Cet exemple montre comment remplacer le nom de module de macro « Module1 » contenu dans le modèle associé par « Macros1 ».
Dim dotTemp As Template
dotTemp = ActiveDocument.AttachedTemplate.Name
Application.OrganizerRename Source:=dotTemp, Name:="Module1", _
NewName:="Macros1", Object:=wdOrganizerObjectProjectItems
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.