Microsoft Office Forums - View Single Post - Style to be used in all documents (new and old)

Charles Kenyon · 03-22-2018, 06:35 AM

You probably do not want to leave that option turned on.
What happens when I send my document to someone else? Will Word mess up my formatting?

Quote:

too much to do each document

Seriously?

Put the following macro in your normal template:

Code:

Sub UpdateMyStyleOnOpen()
' Charles Kenyon 2018-03-22
' https://www.msofficeforums.com/word/38569-style-used-all-documents-new-old.html#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
    '
    Application.OrganizerCopy Source:=ThisDocument.fullname _
        , Destination:=ActiveDocument.fullname, Name:=strMyStyle, _
        Object:=wdOrganizerObjectStyles
End Sub

Again, you need to change the name from UpdateMyStyleOnOpen to AutoOpen and change the name of your target style from Body Text to the name you want.

Installing Macros

If you already have an AutoOpen macro, do not rename, but instead add the following line to the existing macro:
UpdateMyStyleOnOpen