Question

我正在尝试在Notes中的普通文本字段上运行以下内容，但它很糟糕。我想知道GetSelectedText可能无法在纯文本字段上工作，虽然帮助似乎没有表明任何此类限制。

我想获取用户在字段中选择的文本并清除它。（稍后我将用我已经去过的所选文本替换它。并且已经完成了。）

Sub Click(Source As Button)

Dim wrksp As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As notesdocument
Dim seltext As String
Dim test As String
Dim BeginTag As String
Dim EndTag As String
Dim session As New NotesSession
Dim flag As Variant
Dim fieldName As String
fieldName = "Text"

Set uidoc = wrksp.CurrentDocument
Set doc=uidoc.document
On Error Goto nowtselected

seltext = uidoc.GetSelectedText(fieldname)
Msgbox seltext [Note: seltext comes back blank)
Call Session.SetEnvironmentVar( "EnvSelectedText", seltext )
Msgbox "got here1 fine"

Call uidoc.Clear
[Note: craps out completely upon attempting the above operation]

Answer 1

我猜您将代码放在表单上的按钮中。这不起作用。当您单击按钮时，此按钮将获得焦点，并且您的字段会同时失去焦点和选择。因此，您的代码在字段中找不到任何内容。

创建操作按钮（菜单创建/操作/操作... /按钮）。行动的优势在于不改变形式上的焦点和选择。你的代码本身很好。您只需将其转移到某个动作。

Answer 2

Knut，当我把它转移到动作按钮时发生同样的问题，事实上我没有提到它是第一个在动作按钮中，我是在一个常规的页面按钮中尝试它的排序绝望。

但是你让我想到了，我去了，嗯，很明显Knut认为它应该在一个Action按钮上工作（关于页面按钮窃取焦点的推理完全有道理），为什么不呢在一个动作按钮中工作，有什么不同然后我去了，“啊哈！”，（以下是我没有提到的，因为我认为它不相关......）

文本字段设置为“Native OS Style”，而不是通常的“Notes Style”（只是为了使表单更漂亮。）我将其切换回“Notes Style”并且bingo我的操作按钮开始正常工作再次离开。使用的脚本不喜欢将字段设置为“Native OS Style”。

但是感谢Knut，你给了我一些重要的信息来帮助过滤掉其他东西！这个现场型的问题，我一直认为只是装饰性的，对我来说绝对是一个新问题！

lotusscript getselectedtext是否适用于纯文本字段？

2 个答案: