Sub UpdateMyStyleOnOpen()
' Charles Kenyon 2018-03-22
' https://www.msofficeforums.com/word/3...tml#post126054
'
' UpdateMyStyleOnOpen Macro
' Copies named style from normal template to any document that is opened, overwriting existing style
'
' Rename as AutoOpen (instead of UpdateMyStyleOnOpen) and store in Normal.dotm template.
' Set variable strMyStyle to contain the name of style to be updated
'
'
    Dim strMyStyle As String
    strMyStyle = "Body Text"
       ' change this to be the style you want
       ' must enclose name in quotation marks
    '
    On Error Resume Next
    Application.OrganizerCopy Source:=ThisDocument.fullname _
        , Destination:=ActiveDocument.fullname, Name:=strMyStyle, _
        Object:=wdOrganizerObjectStyles
End Sub