Newsgroup: it.comp.lang.visual-basic
Titolo: Conversione Doc in Txt

Salve, 
ho un file in formato doc (o rtf) e vorrei convertirlo in txt. Ho
guardato su Google e ho trovato questo codice:
*************CUT CODICE*****************
Dim DocWord As Object
Set DocWord = CreateObject("Word.Application")
DocWord.Documents.Open _
    FileName:="c:\temp\prova.doc", _
    ConfirmConversions:=False, _
    ReadOnly:=False, _
    AddToRecentFiles:=False, _
    PasswordDocument:="", _
    PasswordTemplate:="", _
    Revert:=False, _
    WritePasswordDocument:="", _
    WritePasswordTemplate:="", _
    Format:=wdOpenFormatAuto
' Salvo in formato testo
DocWord.ActiveDocument.SaveAs _
    FileName:="c:\temp\prova.txt", _
    FileFormat:=wdFormatText, _
    LockComments:=False, _
    Password:="", _
    AddToRecentFiles:=False, _
    WritePassword:="", _
    ReadOnlyRecommended:=False, _
    EmbedTrueTypeFonts:=False, _
    SaveNativePictureFormat:=False, _
    SaveFormsData:=False, _
    SaveAsAOCELetter:=False
DocWord.Quit
Set DocWord = Nothing
*************FINE CUT*******************
L'ho provato, pero' non fa quello che vorrei. Infatti se il mio
prova.doc contiene ad esempio 4 righe:
Riga1
Riga2
Riga3
Riga4
aprendo questo file con "Blocco Note" vedo tutta la formattazione di
Word, mentre io vorrei convertire il file per visualizzare in prova.txt
(che viene fuori dalla conversione) le mie 4 righe scritte inizialmente.
Spero di essermi spiegata!
Ciao
Donatella :) 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

     FileFormat:=wdFormatText, _
Se usi questa opzione ti salva anche la formattazione.
Esiste anche la costante che consente di salvare il testo puro senza
formato.
A memoria non la ricordo, ma con l'help di VB o, meglio, con il registratore
di macro, in un paio di minuti la trovi.
Ciao
Alberto

Ciao,
innanzitutto grazie per aver risposto.
Ho fatto come dici tu cercando nel registratore macro. Ho trovato l'esempio che
fa per me, ma quando lo mando in esecuzione, il file .txt mantiene ancora la
formattazione!!!!
Te lo riporto di seguito:
<Esempio>
Dim wdApp As Object
Set wdApp = CreateObject("Word.Application")
wdApp.Documents.Open FileName:="C:\Temp\Prova.doc"
myDocname = 
wdApp.ActiveDocument.Name
pos = InStr(myDocname, ".")
If pos > 0 Then
    myDocname = Left(myDocname, pos - 1)
    myDocname = myDocname & ".txt"
    wdApp.ActiveDocument.SaveAs FileName:=myDocname, _
        FileFormat:=wdFormatText
End If
</Esempio>
Dove sbaglio?!?!?!? Anzi, che parametro manca?!?!?!
Ciao
Donatella :)


 Dove sbaglio?!?!?!? Anzi, che parametro manca?!?!?!
Guarda, da me funziona come ti ho detto.
Prova ad aggiungere EmbedTrueTypeFonts:=False,
SaveNativePictureFormat:=False
ma non vorrei che tu avessi qualche settaggio di word particolare.
Ciao
Alberto


Ho pensato che il problema potesse essere legato al fatto che uso
Word2000, ho quindi fatto girare il programma su un pc con Word97, ma il
problema persiste!
Ho pensato (al massimo della disperazione!) di usare un textbox di
passaggio, ma questa soluzione e' super-mega-bruttaaaaaa!
Vabe', continuo a provare!
Grazie
Ciao
Donatella :)

 Donatella :)
scusate se mi intrometto, secondo me come controproprova potresti aprire il
documento .doc con word e sempre con word salvarlo in formato .txt (salva
con nome --> testo normale)
se riscontri gli stessi problemi che hai con vb vuol dire che word č
impazzito altrimenti puoi dedicarti al debug del codice.
Ciao.
--------------------------------
Inviato via 
http://usenet.libero.it

 ho un file in formato doc (o rtf) e vorrei convertirlo in txt.
Io ho fatto cosě:
Private Sub DocToTxt (ByVal Origin As String, ByVal Destination As String)
  Dim x As Word.Document
  Dim wa As New Word.Application
  Set x = wa.Documents.Open(Origin)
  x.SaveAs Destination, Word.wdFormatText
  x.Close
End Sub
Se perň devi convertire piů di un file ti conviene fare in modo che wa sia
creato una sola volta e non ogni volta che la sub viene chiamata.
Ignazio

Ragazzi GRAZIEEEEE
Ho utilizzato il codice suggerito da Ignazio e ho ottenuto quello che volevo.
Grazie ancora per aver perso tempo con me.
Ciao
DOnatella :)
