精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● 群件>>开发>>脚本LotusScript>>判断rtf域是否为空的方法

主题:判断rtf域是否为空的方法
发信人: sdqdsg()
整理人: kamkam(2002-05-01 23:13:48), 站内信件
斑竹你好:
感谢你回答我提出的判断RTF域为空的问题。我刚看到了一篇文章,共享一下:
假设有一个RTF域body,你可以用一下程序来判断其是否为空
首先定义:

Const lsERR_LSXUI_UNKNOWN_PROP = 4400 
Const lsERR_LSXUI_INVALID_ARGS = 4401 
Const lsERR_LSXUI_NO_WORKSPACE_WND = 4402 
Const lsERR_LSXUI_NO_DATABASE_WND = 4403 
Const lsERR_LSXUI_LSBE_DB_CREATE = 4404 
Const lsERR_LSXUI_NO_DOCUMENT_WND = 4405 
Const lsERR_LSXUI_LSBE_DOC_CREATE = 4406 
Const lsERR_LSXUI_DOC_CMD_NOT_AVAILABLE = 4407 
Const lsERR_LSXUI_FIELD_CMD_NOT_AVAILABLE = 4408 
Const lsERR_LSXUI_CMD_NOT_AVAILABLE = 4409 
Const lsERR_LSXUI_DOC_OBJ_NOT_VALID = 4410 
Const lsERR_LSXUI_DOC_SAVE_CANCELLED = 4411 
Const lsERR_LSXUI_NOTES_ERROR = 4412 
Const lsERR_LSXUI_INVALID_LSX = 4413 
Const lsERR_LSXUI_INVALID_STR_ARG = 4414 
Const lsERR_LSXUI_INVALID_NULL_ARG = 4415 
Const lsERR_LSXUI_NO_NOTE = 4416 
Const lsERR_LSXUI_MODALEDIT_DIALOGUP = 4417 
Const lsERR_LSXUI_QUERY_OPEN = 4418 
Const lsERR_LSXUI_INVALID_OBJ_ARG = 4419 

然后,在你的脚本中添加下面的程序

    On Error Goto gaoli 
    Dim ws As New notesuiworkspace
    Dim uidoc As notesuidocument
    Set uidoc=ws.currentdocument
    Call uidoc.gotofield("body")
    Call uidoc.selectall
    Call uidoc.deselectall
    Exit Sub
gaoli:
    Messagebox("RTF为空!")
    Exit Sub

不知你看了如何?能不能再回答我一个问题:就是那篇“ !!??急救,急救-私有视图打不开了”,多谢了

kamkam:
   方法的改进,判断具体的on error值,只对产生问题的error num才转移。可以在rtf域为空时用selectall , deselectall算出errno
   方法的局限,只能判断uidoc环境下的rtf,不能直接判断doc中的rtf

[关闭][返回]