Word スタイル名を変更するマクロ

以下は、組み込みスタイルではないスタイル名を、スタイル名＋"-changed" にする例

Sub changeStyleNames()

    For Each aStyle in ActiveDocument.Styles

        If aStyle.BuiltIn = False Then aStyle.NameLocal = aStyle.NameLocal & "-changed"
    Next aStyle

End Sub

参考

http://stackoverflow.com/questions/15208677/renaming-word-styles-with-vba