请教如何获得当前文档的所有域的内容。谢谢！

[oceansea]

我在vb中的代码为：
private sub command1_click()
dim ows as object
dim ouidoc as object
dim odoc as object
dim oit as object

set ows = createobject("Notes.NotesUIWorkspace")
set ouidoc = ows.currentdocument
set odoc = ouidoc.document
ouidoc.editmode = True

set oit = odoc.Items(0)
end sub

出现的错误：在最后一句 set oit = odoc.Items(0),前面都没有出错。
错误信息为：Run_time error '458'
Variable uses an Automation type not supported in Visual Basic。

请指点，谢谢。