Altova StyleVision 2025 Enterprise Edition

Property: Selection as AuthenticRange

 

Description

Set or get current text selection in user interface.

 

Errors

2000

The authentic view object is no longer valid.

2002

No cursor selection is active.

2005

Invalid address for the return parameter was specified.

 

Examples

' ---------------------------------------

' Scripting environment - VBScript

' ---------------------------------------

Dim objAuthenticView

' we assume that the active document is open in authentic view mode

Set objAuthenticView = Application.ActiveDocument.AuthenticView

 

' if we are the end of the document, re-start at the beginning

If (objAuthenticView.Selection.IsEqual(objAuthenticView.DocumentEnd)) Then

 objAuthenticView.Selection = objAuthenticView.DocumentBegin

Else

 ' objAuthenticView.Selection = objAuthenticView.Selection.GotoNextCursorPosition()

 ' or shorter:

  objAuthenticView.Selection.GotoNextCursorPosition().Select

End If

© 2018-2024 Altova GmbH