Word VBA and Styles

Hi all

I have a style which I want to populate old files as well as new ones. Any suggestions?

I have this code in normal.dotx, but it says 'operation failed' each time I use word. This error only comes up once? :crying:

Thanks in advance.

Sub AutoOpen()

Dim strMyStyle As String
strMyStyle = "MorzNum"

Application.OrganizerCopy Source:=ThisDocument.fullname _
, Destination:=ActiveDocument.fullname, Name:=strMyStyle, _
Object:=wdOrganizerObjectStyles
End Sub

Try the following saved in the normal template (which is normal.dotm, not normal.dotx).
The normal template must also have the named style
The message boxes are there for information only while testing. They can be removed along with the 'Else' branch of the conditional statement.
New documents based on the normal template will have the style.

Code:

---

Sub AutoOpen()

Dim strMyStyle As String
Dim oStyle As Style
Dim bFound As Boolean
    strMyStyle = "MorzNum"
    For Each oStyle In ActiveDocument.Styles
        If oStyle.NameLocal = strMyStyle Then
            bFound = True
            Exit For
        End If
    Next oStyle
    If Not bFound = True Then
        MsgBox strMyStyle & " Style added to the document"
        Application.OrganizerCopy _
                Source:=ThisDocument.FullName, _
                Destination:=ActiveDocument.FullName, _
                Name:=strMyStyle, _
                Object:=wdOrganizerObjectStyles
    Else
        MsgBox "The style " & strMyStyle & " already exists in the document "
    End If
End Sub

---

Cross-posted at: https://social.msdn.microsoft.com/Fo...or-normaldotx?
Please read VBA Express' policy on Cross-Posting in item 3 of the rules: http://www.vbaexpress.com/forum/faq...._new_faq_item3

https://i1.social.s-msft.com/globalr...f?cver=0%0d%0a

https://i1.social.s-msft.com/globalr...f?cver=0%0d%0a0

Sign in to vote

Hi
I have a style and want it to populate all files in the past as well as the new ones. I put it into Normal.dotx and then got this code:
Sub AutoOpen()

Dim strMyStyle As String
strMyStyle = "MyNumbering"

Application.OrganizerCopy Source:=ThisDocument.FullName _
, Destination:=ActiveDocument.FullName, Name:=strMyStyle, _
Object:=wdOrganizerObjectStyles

End Sub

However, I get an error with a "command failed". I am unsure if this is the correct code to use. Any suggestions? Thanks...

Did you read the replies before posting again?