![]() ' ThisDocument is the holder of the code as well as the stylesįor i = 1 To 3 ' copy styles three times to maintain linkagesĪctiveDocument.CopyStylesFromTemplate (ThisDocument.FullName) ![]() ' Copy all styles from this template to all to Active Document Title:="Are you sure you want to redefine your styles?", _ & vbCrLf & "Then run the command to copy the styles again.", & vbCrLf & vbCrLf & "If you are not sure, answer 'No' and ![]() & vbCrLf & "Are you sure you want to do this?" _ RResponse = MsgBox(Prompt:="This command redefines your document's ' Check to see if user really wants to do it. On Error GoTo NoDocument 'In case called when no document is open. ' Copies all styles from stylesheet global template to active documentĭim rResponse As Variant 'vbMsgBoxResult in Word 2000 or later ' Copyright 2001, 2020 All rights reserved ' StylesCopyAll Macro written by Charles Kyle Kenyon 14 November 2001 revised 12 ![]() What follows is first a macro to copy all styles from a global template to A sample global stylesheet template with this macro can be Styles contained in global templates areĪ macro, though, can be used to copy styles from a global template to theĪctive document. Global Templates work very well for sharing most kinds of customizations in List and other info and go directly to the start of this topic. Please consider making a donation if you can. It costs money to keep on line and effort to
0 Comments
Leave a Reply. |