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?

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