Lotusscript 从只读MSWord文档获取文本

我不明白，如何在非读取模式下读取MS Word文档。我正在尝试使用宏，但仍然不知道如何在脚本中应用View.ReadingLayout。“调试始终为我返回”

实例成员Wiew不存在

" 基本上，我的任务是从MSWord获取文本。但如果文档状态为“只读”，该怎么办。和调试返回，第29行出现路径/文件访问错误75

谢谢大家!

Dim wrdApp作为变体 Dim wordFile作为变量 关于错误转到错误处理程序

Dim count As Integer

Set wrdApp = CreateObject("Word.Application")
filepath = "E:\IBM\Temp\" & object.Source 
Call object.ExtractFile(filepath)
Set wordFile = GetObject(filepath , "Word.Document")
wordFile.Application.Visible = False
If wordFile.ProtectionType <> -1 Then
    Print "Document is protected"
Else
    count = wordFile.Paragraphs.Count
    wordFile.Paragraphs(1).Range.Select
    rttext = wordFile.content.text  
End If
Call wordFile.Application.Quit()
Set wrdApp = Nothing 
createobject("scripting.filesystemobject").deletefile(filepath)

Dim计数为整数
Set wrdApp=CreateObject（“Word.Application”）
filepath=“E:\IBM\Temp\”&object.Source
调用object.ExtractFile（文件路径）
Set wordFile=GetObject（文件路径，“Word.Document”）
wordFile.Application.Visible=False
如果wordFile.ProtectionType为-1，则
打印“文档受保护”
其他的
count=wordFile.parations.count
wordFile.parations（1）.Range.Select
rttext=wordFile.content.text
如果结束
调用wordFile.Application.Quit（）
设置wrdApp=Nothing
createobject（“scripting.filesystemobject”）.deletefile（文件路径）

您用来打开文件的代码是什么？就我而言，似乎我已经找到了解决方案。我的错误是我使用了kill函数。当我开始使用createobject（“scripting.filesystemobject”）时。deletefiles（filepath）所有启动都运行良好。无论如何，谢谢你。谢谢你发布这个！我以前从未使用过FileSystemObject，它看起来非常有用。如果你有任何想法，为什么这样做有效，但是

Kill

没有，请告诉我。