Template.Copy

Copy(pSource As Template) As Boolean

Parameters

pSource As Template

Source template object, from which the settings should be copied.

Remarks

Copies the settings from an existing template to the own template.

Sample

 Sub zenOn_TemplateCopy()
	'Declarations
	Dim zWork As Project
	Dim zTemplate As Template
	Dim zTemplateCopy As Template

	'Initializiation of zWork
	Set zWork = MyWorkspace.ActiveDocument

	'Initialization of zTemplate with the first element in the "Templates" object
	Set zTemplate = zWork.templates.Item(0)

	'Initialization of zTemplateCopy by creating a new template
	Set zTemplateCopy = zWork.templates.Create("zenOn_TemplateCopy", False)

	'Copy the settings from zTemplate to zTemplateCopy
	zTemplateCopy.Copy zTemplate

End Sub

See Also

Template