Style to be used in all documents (new and old)

MORZ68 · #1 03-21-2018, 11:13 PM

Hi

I've put a style into Normal.dot, but obviously each time I open an old document/template they are not there.

I know the organiser, but too much to do each document. Plus format painter, but again, would rather just have the style in all documents, old and new.

Thanks

Guessed · #2 03-22-2018, 04:38 AM

You need to refresh the styles from the template in order to import the styles from the attached template into the currently active document.

Via the interface, you do this by ticking the setting of Developer Tab > Document Template > Automatically update document styles and pressing the OK button. Once this is done, I would recommend you go back into that dialog and turn it off again.

The developer tab is not active by default in Word. If you haven't shown yours, go to File > Options > Customise Ribbon to turn it on.

Charles Kenyon · #3 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

Guessed · #4 03-22-2018, 04:07 PM

There is an alternative to Charles' focused approach which imports a single style from a specific template.

I use a much broader approach. The following macro will import every style from the attached template. The attached template is not always the Normal template but if you created the document yourself and didn't pay attention to which template you used then in all likelihood it is Normal.dotm.

Code:

Sub RefreshStylesFromTemplate()
   ActiveDocument.UpdateStyles
End Sub

Charles Kenyon · #5 03-22-2018, 04:35 PM

Quote:

Originally Posted by Guessed

There is an alternative to Charles' focused approach which imports a single style from a specific template.

***

Hi Andrew,

It imports a single style from the template that holds the macro (ThisDocument). If my advice is followed, that is the normal template. If named AutoOpen, it runs anytime any document (or template) is opened regardless of what is the attached template.

MORZ68 · #6 03-23-2018, 01:53 AM

Thanks so much! Works on my home computer, now to do it at work!

MORZ68 · #7 03-27-2018, 11:19 PM

It comes up and says "command failed". Simple little dialog, but then continues. Bit annoying each time... any suggestions? Thanks M

Guessed · #8 03-29-2018, 12:20 AM

Which macro are you using? If the command is failing then it would help to know what your actual code is before hypothesizing on reasons why it might fail.

For instance, the one liner I supplied might fail if you ran it on a template instead of a document.

MORZ68 · #9 03-29-2018, 03:40 PM

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

Charles Kenyon · #10 03-29-2018, 07:00 PM

Try

Code:

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

MORZ68 · #11 03-29-2018, 11:43 PM

Thank you! :-)

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Apply Heading Style When Combining Documents	snot369	Word	1	01-13-2017 11:04 AM
Writing multiple documents of a certain style.	Darkstar_	Word	2	09-30-2016 12:02 PM
How can I change the default style set so that it automatically applies to all documents?	writty	Word	3	08-16-2015 09:47 AM
Make a new Style available in legacy documents	BlueClearSky	Word	3	11-22-2013 03:12 PM
Change font style and size in multiple documents	fitkhan	Word	1	04-27-2011 09:49 PM