LOTUSSCRIPT/COM/OLE CLASSES
Examples: GetSelectedText method
1. This form action appends all currently selected text in a document to a file.
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
texxt$ = uidoc.GetSelectedText()
pathname$ = "c:\Selected.txt"
fileNum% = Freefile()
Open pathname$ For Append As fileNum%
Print #fileNum%, texxt$
Close #fileNum%
End Sub
2. This form action reduces the value of a field to the currently selected text within the field.
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim text As String
Dim fieldName As String
fieldName = "Subject"
Set uidoc = workspace.CurrentDocument
text = uidoc.GetSelectedText(fieldName)
If text <> "" Then
If Not uidoc.EditMode Then uidoc.EditMode = True
Call uidoc.FieldSetText("Subject", text)
End If
End Sub
See Also
GetSelectedText method
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary