Import Word style Macro 1

[nikka]

Hi how can I create a macro to import styles from one word document to another. However it must references the application and not the path name.

Thanks
Nikka

 

[substitute]

When you say application not path name I assume you mean the two files are open in Word. This macro uses the style organiser to copy the styles defined or modified in the active document to all other open documents:

Dim oStyle As Style
Dim oDocument As Document
For Each oDocument In Application.Documents
If oDocument.Name <> ActiveDocument.Name Then
For Each oStyle In ActiveDocument.Styles
If oStyle.InUse Then
Application.OrganizerCopy _
ActiveDocument.Name, _
oDocument.Name, _
oStyle.NameLocal, _
wdOrganizerObjectStyles
End If
Next oStyle
End If
Next oDocument

To write the macro select Tools->Macro->Macros, enter a name for the macro in the name box, select Normal.dot in the Macros In box and click Create. Copy the above code into the editor between SUB and END SUB. Close the editor. Run the macro by going back to Tools-Macro->Macros, select the macro and click Run.

Any good?

 

[nikka]

I get an error of file not found
The code breaks
at: Application.OrganizerCopy _
ActiveDocument.Name, _
oDocument.Name, _
oStyle.NameLocal, _
wdOrganizerObjectStyles

Thanks

Nikka

 

[substitute]

Insufficient testing! I got that right out of the on-line help file too!

Wherever the code refers to .Name change it to .FullName (don't touch the .NameLocal properties)

I've tested that with various saved files and it works on my system (before I just created two new files but didn't save them)

Sorry, now does it do what you want?

 

[nikka]

Your the man. Fantastic! Thanks.