замена стиля "Обычный"

[caute]

можно ли написать макрос, который заменял бы стиль "Обычный" в текущем доке на одноименный стиль из normal.dot?
типа:
Application.OrganizerCopy Source:=
Destination:=

А еще лучше бы - заменить сразу все используемые стили текущего документа одноименными стилями normal.dot

[Вождь]

   Application.OrganizerCopy _
        Source:=NormalTemplate.FullName, _
        Destination:=ActiveDocument.FullName, _
        Name:="Обычный", _
        Object:=Word.WdOrganizerObject.wdOrganizerObjectStyles

[Вождь]

Если все, то так

Dim S As Word.Style

    On Error Resume Next
    For Each S In ActiveDocument.Styles
        Application.OrganizerCopy _
            Source:=NormalTemplate.FullName, _
            Destination:=ActiveDocument.FullName, _
            Name:=S.NameLocal, _
            Object:=Word.WdOrganizerObject.wdOrganizerObjectStyles
    Next S

[caute]

класс! спасибо, добрый Вождь