|
ED
|
avaliable
|
RT
|
not used
|
Delete an existing script by name
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