Erhalte Text von ReadOnly MSWord Dokument

Ich kann nicht verstehen, wie man ein MS Word Dokumente nicht in einem Lesemodus liest. Ich versuche, Makros zu verwenden, verstehe aber immer noch nicht, wie View.ReadingLayout in meinem Skript angewendet wird. Debug immer wieder zurückkehren für mich "Erhalte Text von ReadOnly MSWord Dokument

Instanz Mitglied Wiew nicht
existieren

" basicaly, ist meine Aufgabe Text aus MS Word bekommen. Aber was tun, wenn Dokument Status "ReadOnly". Und Debug Rückkehr, Pfad/Dateizugriffsfehler 75 in Zeile 29

Vielen Dank!

Quelle

2017-07-13 InetBard

Was ist der Code, den Sie die Datei öffnen verwenden? – JSmart523

In meinem Fall scheint, als ob ich bereits eine Lösung gefunden habe. Mein Fehler war, dass ich Kill-Funktion verwendet habe. Als ich anfing, createobject ("scripting.filesystemobject") zu verwenden. deletefiles (Dateipfad) startet alles gut. Jedenfalls vielen Dank – InetBard

Dim wrdApp As Variant Dim Wordfile As Variant On Error GoTo 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)

Quelle

2017-08-17 09:31:24 InetBard

Huh. Danke für das Posten! Ich habe FileSystemObject nie zuvor benutzt und es sieht sehr nützlich aus. Wenn du darüber nachdenkst, warum das funktioniert, aber 'Kill' nicht, lass es mich wissen. – JSmart523

Erhalte Text von ReadOnly MSWord Dokument

Antwort

Verwandte Themen