HCL Domino - Examples: GetSelectedText method - Need a Domino Consultant? Call NotesMail +1 212-599-2048

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

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

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents