AuthenticView.Selection

www.altova.com このトピックを印刷 前のページ 1つ上のレベル 次のページ

ホーム >  プログラマーの レファレンス > Application API > Interfaces > AuthenticView >

AuthenticView.Selection

See also

 

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


(C) 2019 Altova GmbH