Description

Set text as current.

Syntax

Remarks

Returns list of selection on page.

Code

  Public Sub NewText()

    Dim objectId As Integer = NewFolderObjectDialog("txt", False, "[txt.folderRef]", False)

 

    If Fred.HasActivePage Then

      Page.SetCurTxt(objectId)

    End If

  End Sub

Context

Page designer