Copy Styles using Organizer w/o Copying Font

[fishey]

Is there a way to write VBA code for Word that will copy a style from one template to another (where the style is based on "Normal&quot without copying the font of the source's Normal style? In other words, I would like the copied style to be based on the target template's "Normal" rather than the source template's.

 

[RobBroekhuis]

Hmmm... I can't find any Word VBA methods at all to copy styles between documents or templates. Am I missing something?

Rob

 

[fishey]

Here is an example of the code I used to copy a style from the FIRM.dot template to the active document:

Dim strThisDocument As String
strThisDocument = ActiveDocument.FullName

With ActiveDocument
.UpdateStylesOnOpen = False
End With

Application.OrganizerCopy Source:= _
"C:\program files\microsoft office\office10\startup\FIRM.dot", _
Destination:=strThisDocument, Name:="Hanging Text 2", _
Object:=wdOrganizerObjectStyles

Selection.Style = ActiveDocument.Styles("Hanging Text 2&quot