ReadOnlyからのテキストの取得MSWordドキュメント

Question

MS Wordドキュメントの読み取りモードでの読み込み方法を理解できません。私はマクロを使用しようとしていますが、私のスクリプトでView.ReadingLayoutを適用する方法はまだ分かりません。私は "

インスタンスメンバーWiewが

存在しない" ためのデバッグは常に返し Basicalyは、私の仕事は、MSWordのからテキストを取得することです。しかし、ドキュメントのステータスが "ReadOnly"の場合はどうなりますか。そしてデバッグリターン、29行目のパス/ファイルアクセスエラー75

ありがとう！

Answer 1

薄暗いwrdAppバリアント として暗いワードファイルエラー時にバリアント として後藤ErrorHandlerの

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)