Méthode Application.OrganizerRename (Word)

Article
04/07/2023

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

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.

Partager via