Remarks | Properties | Methods | Samples |
ED
|
avaliable
|
RT
|
avaliable
|
This object manages "TimeFunction" objects.
Count | Parent |
Create | Delete | Export |
Import | Item |
Sub zenOn_TimeFunctions() 'Declarations Dim zProject As Project Dim zTimeFcts As TimeFunctions Dim i As Integer 'Initialize zProject with the current project Set zProject = MyWorkspace.ActiveDocument 'Initialize zTimeFcts with the "TimeFunction" object collection of the project Set zTimeFcts = zProject.TimeFunctions 'Create a new "TimeFunction" object and assign the first available function to it zTimeFcts.Create "zenOn_TimeFunction", zProject.RtFunctions.Item(0).ID 'For every "TimeFunction" object within the collection... For i = 0 To zTimeFcts.Count - 1 '... output the name Debug.Print zTimeFcts.Item(i).Name Next i 'Delete the former created "TimeFunction" object zTimeFcts.Delete "zenOn_TimeFunction" End Sub