Scripts.Create



Create(bsName As String) As Script

Parameters

bsName As String
Name of the new script as string
ED
avaliable
RT
not used

Remarks

Create a new script by name as string parameter

Sample


Sub zenOn_CreateDeleteScript()
	Dim zScripts As Scripts
	Dim i As Integer

	'Initialize the scripts object with the current scripts
	Set zScripts = MyWorkspace.ActiveDocument.Scripts

	'Create a new script inside the scripts object
	zScripts.Create ("zenOn_ScriptTest")

	'Delete a script inside the scripts object
	zScripts.Delete ("zenOn_ScriptTest")

End Sub




See Also

Scripts, Script