Convertire un sacco di file .doc in .rtf

[stoppy]

Ciao,
ho un problema. Ho da convertire circa un migliaio di documenti word in formato rtf. Il metodo che mi viene ora in mente è aprire uno alla volta i documenti e salvarli con nome in rtf. Come potete immaginare convertire in questo modo mille documenti è un bordello.

Qualcuno ha qualche idea per automatizzare o velocizzare il tutto?

Grazie

[Spaolithos]

Fai così:

- apri il Promp di DOS
- posizionati sulla cartella in questione
- digita ren *.doc *.rtf

Impiegherai pochissimi secondi...

[seclimar]

[supersaibal]Originariamente inviato da Spaolithos
Fai così:

- apri il Promp di DOS
- posizionati sulla cartella in questione
- digita ren *.doc *.rtf

Impiegherai pochissimi secondi... [/supersaibal]

bocciato!!!!!!!!
un doc non e' uguale a un rtf!



per risovere il problema...
devi fare una macro!!!
WORD con vba!
le sai fare ??

se conosci un minimo di VB ....
fai cosi':
apri word
registra una macro
apri il file...
salvalo come RTF!
chiudi il file

STOPPA LA REGISTRAZIONE DELLA MACRO
edita la macro..
cambiala a piacere mettendola in un ciclo che ti modifica tutti i files!!

devi pero' sapere un minimo di vb
se hai altre domande..chiedi pure...

[stoppy]

vb lo conosco, ora ci provo. Mi ci metto. se ho problemi vi chiedo.
Grazie

[seclimar]

e' facile!
se non riesci...posta il codice!!!

[stoppy]

E' la prima volta che lavoro con una macro (mi sa che mi sono perso una gran cosa).

Io l'ho registrata, poi la prendo e la vado a modificare. Il codice è questo:

Sub AcceptAllChanges()
'
' AcceptAllChanges Macro
' Macro creata il 21/12/2003 da Giuseppe
'

End Sub
Sub Macro1()
'
' Macro1 Macro
' Macro registrata il 21/12/2003 da Giuseppe
'
    RecentFiles(2).Open
    ActiveDocument.SaveAs FileName:="lar dcocumento.rtf", FileFormat:= _
        wdFormatRTF, LockComments:=False, Password:="", AddToRecentFiles:=True, _
        WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
         SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
    ActiveWindow.Close
End Sub
Sub AddCommentsItem()
'
' AddCommentsItem Macro
' Macro creata il 21/12/2003 da Giuseppe
'

End Sub 

Ora, per creare un ciclo su sta macro prendendo i docuementi da una directory e salvarli su un'altra in rtf, come faccio?
Il nome in cui salva l'rtf a quanto sembra dal codice è docuemnto.rtf: come faccio a dare il titolo di quel documento doc all'rtf?

[seclimar]

errore 1)
hai preso il file dai recenti!!!
rifai il tutto prendendo il file normalmente!!


apri il file
e poi salvi con nome

se guardi il codice...
trovi il nome del file... ripetuto due volte

mettigli invece che una costante...
due variabili:
strFileOpen
strFileSave

poi metti tutto in un ciclo !!!

while
.......
.......
wend

per leggere i file di una directory se non erro c'e' la funzione dir..
leggine l'help!

postami il codice quando ti blocchi!
pero' FAI ALMENO IL CICLO e LE DUE VARIABILI CON IL NOME FILE

[stoppy]

ok, non dovrebbe essere difficile, devo un po ripassare la manipolazione di file e directory.

Poi per farla funzionare che faccio?

[seclimar]

c'e' il tasto play!
posizionati dentro la funziona (macro) e premilo...
oppure ..meglio ancora

VAI PASSO PASSO con f8...cosi' fai del buon debug per trovare gli errori

[seclimar]

ESEMPIO PER I FILES
preso da excel sul comando DIR

Dim MyFile, MyPath, MyName
' Restituisce "WIN.INI" (in Microsoft Windows)se esiste.
MyFile = Dir("C:\WINDOWS\WIN.INI")

' Restituisce il nome dei file con l'estensione
' specificata. Se esistono più file con estensione.ini,
' viene restituito il nome del primo file.
MyFile = Dir("C:\WINDOWS\*.INI")

' Richiama l'istruzione Dir senza argomenti per
' restituire il successivo file con estensione ini
' contenuto nella stessa directory.
MyFile = Dir

' Restituisce il primo file con estensione txt
' impostato come nascosto.
MyFile = Dir("*.TXT", vbHidden)

' Visualizza i nomi in c:\ che rappresentano directory.
MyPath = "c:\" ' Imposta il percorso.
MyName = Dir(MyPath, vbDirectory) ' Recupera la prima voce.
Do While MyName <> "" ' Avvia il ciclo.
' Ignora la directory corrente e quella di livello superiore.
If MyName <> "." And MyName <> ".." Then
' Usa il confronto bit per bit per verificare se MyName è una directory.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Visualizza la voce solo
End If ' se rappresenta una directory.
End If
MyName = Dir ' Legge la voce successiva.
Loop