Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

VB6 sub per estrarre il test da wird

7 views
Skip to first unread message

leonello34

unread,
Dec 26, 2009, 5:46:48 PM12/26/09
to
salve
come fare ad estrarre tutto il testo da un documento microsoft word ?
esiste gia qualcosa come subroutine da includere in un progetto in VB6.
leonello


Reventlov

unread,
Dec 26, 2009, 6:23:59 PM12/26/09
to

non provato:

Set objWord = CreateObject("Word.Application")
objWord.Visible = False 'mettere true per debug
With objWord
.ChangeFileOpenDirectory "C:\dati\WORD\prova\"
.Documents.Open "documento.doc"
TuttoilTesto= .Selection.WholeStory
end with

objWord.quit

--
Giovanni Cenati (Bergamo, Italy)
Write to "Reventlov" at katamail com
http://digilander.libero.it/Cenati (Esempi e programmi in VbScript)
--

leonello34

unread,
Dec 27, 2009, 4:21:41 PM12/27/09
to

>>salve
>>come fare ad estrarre tutto il testo da un documento microsoft word ?
>>esiste gia qualcosa come subroutine da includere in un progetto in VB6.
>
> non provato:
>
> Set objWord = CreateObject("Word.Application")
> objWord.Visible = False 'mettere true per debug
> With objWord
> .ChangeFileOpenDirectory "C:\dati\WORD\prova\"
> .Documents.Open "documento.doc"
> TuttoilTesto= .Selection.WholeStory
> end with
>
> objWord.quit
>

grazie1000, ho provato ma la variabile TuttoilTtesto che ho dichiarato as
string rimane vuota, non contiene testo ed io non so il perche
leonello

Reventlov

unread,
Dec 27, 2009, 5:14:04 PM12/27/09
to
Il giorno Sun, 27 Dec 2009 22:21:41 +0100, "leonello34" <leone...@gmail.com> ha scritto:
>grazie1000, ho provato ma la variabile TuttoilTtesto che ho dichiarato as
>string rimane vuota, non contiene testo ed io non so il perche

Il perch� � che il mio codice � sbagliato.
Cos� invece funziona (questo l'ho provato).
WholeStory � un metodo, cio� esegue una azione.
Selection invece � una propriet�, della quale si pu� leggere il valore.


Set objWord = CreateObject("Word.Application")
objWord.Visible = False 'mettere true per debug
With objWord

.ChangeFileOpenDirectory "C:\documenti\Giovanni\"
.Documents.Open "test.doc"
.Selection.WholeStory
tuttoiltesto= .selection
MsgBox tuttoiltesto
end with

objWord.quit

leonello34

unread,
Jan 3, 2010, 10:49:18 AM1/3/10
to

"Reventlov" <no...@no.void> ha scritto nel messaggio
news:4b37db1f...@powernews.libero.it...

> Il giorno Sun, 27 Dec 2009 22:21:41 +0100, "leonello34"
> <leone...@gmail.com> ha scritto:
>>grazie1000, ho provato ma la variabile TuttoilTtesto che ho dichiarato
>>as
>>string rimane vuota, non contiene testo ed io non so il perche
>
> Il perch� � che il mio codice � sbagliato.
salve
grazie tutto ora funziona,ma rimane una cosa da controllare che io non so.
i files di tipo doc posono contenere anche foto e suoni
se il file doc contiene solo immagini vorrei poert ,nnel mio applicativo,
avvisare l'utente
leonello
0 new messages