OrganizerRename Method Example

This example changes the name of the style named "SubText" in the active document to "SubText2."

For Each sty In ActiveDocument.Styles
    If sty.NameLocal = "SubText" Then
        Application.OrganizerRename _
            Source:=ActiveDocument.Name, Name:="SubText", _
            NewName:="SubText2", Object:=wdOrganizerObjectStyles
    End If
Next sty

This example changes the name of the macro module named "Module1" in the attached template to "MyMacros."

dot = ActiveDocument.AttachedTemplate.Name
Application.OrganizerRename Source:=dot, Name:="Module1", _
    NewName:="MyMacros", Object:=wdOrganizerObjectProjectItems