Remas

Remarks:

This object manages "Rema" objects.

Properties:

Methods:

Samples:

Public Sub zenOn_RemasExample()

	'Declarations
	Dim zRemas As Remas
	Dim zBinRema As Rema
	Dim zAnaRema As Rema
	Dim i As Integer

	'Initialization of zRemas
	Set zRemas = MyWorkspace.ActiveDocument.Remas
	'Intialization of zBinRema by creating a new binary rema
	Set zBinRema = zRemas.Create(tpBinaer, "zenOn_BinaryRema")
	'Intialization of zAnaRema by creating a new analog rema
	Set zAnaRema = zRemas.Create(tpAnalog, "zenOn_AnalogRema")

	'Output some details on the remas
	For i = 0 To zRemas.Count - 1
		'Display name
		Debug.Print "Name: " & zRemas.Item(i).Name
		'Show type of Reaction Matrix
		Select Case zRemas.Item(i).Type
			Case Is = 1
				Debug.Print "Type: Binary"
			Case Is = 2
				Debug.Print "Type: Analog"
			Case Is = 3
				Debug.Print "Type: MultiBinary"
			Case Is = 4
				Debug.Print "Type: MultiAnalog"
			Case Is = 5
				Debug.Print "Type: String"
		End Select
	Next i

	'Delete the binary rema by its position
	Debug.Print zRemas.Delete(1)
	'Delete the analog rema by its name
	Debug.Print zRemas.Delete("zenOn_AnalogRema")

End Sub