发信人: 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 |
|