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
Véase también
GetSelectedText method
Glosario
¿Desea opinar sobre la
Ayuda
o sobre la
utilidad del producto
?
Ayuda sobre la Ayuda
Todo el contenido de la Ayuda
Glosario