PureDispHelper
Verfasst: 17.06.2008 18:52
In dem DispHelper-Readme-File steht etwas zu "Retrieving a value - Get the text of a word document". Ich habe mal versucht, das in PB umzusetzen:
Angezeigt werden aber nur ein paar kryptische Zeichen und nicht der Dokumentinhalt. Hat das vielleicht etwas mit der Definition der String-Variablen inhalt$ zu tun? Denn wenn ich sie nicht mit space(1000) initialisiere, gibt es sogar eine Fehlermeldung. Vielleicht hat jemand eine Idee!
Code: Alles auswählen
test_datei$ = "c:\ ....."
Define inhalt$ = space(1000)
Define.l oWord = dhCreateObject("Word.Application")
dhCallMethod (oWord, "Documents.Open(%T)", @test_datei$)
dhGetValue("%s", @inhalt$, oWord, "ActiveDocument.Range.Text")
MessageRequester("Inhalt des Dokuments", inhalt$)