Ciao... ho bisogno di un aiuto.
Ho questa macro che mi permette di modificare dei file .RTF in file .DOC.
Il problema è che sono obbligato a numerare TUTTI i file da 00000001.rtf a 00000XXX.rtf in perfetto ordine (con un max di 300 file, che posso anche facilmente modificare).
Se avessi dei file mancanti mi si blocca la macro. Se, per esempio, cancello il file 00000002.rtf, si ferma immediatamente e mi dà errore.
Come faccio a far leggere tutti i file presenti dentro la cartella ... anche se qualcuno non segue esattamente la progressione numerica?
Grazie
Carlo
================================================
Sub CicloConversione()
Dim nomefiledaaprire, nomefiledasalvare, lunghezza As String
Dim progressivo As Integer
progressivo = 0
For P = 1 To 300
progressivo = progressivo + 1
lunghezza = "00000000" & progressivo
nomefiledaaprire = Right(lunghezza, 8 ) & ".rtf"
nomefiledasalvare = Right(lunghezza, 8 ) & ".doc"
ChangeFileOpenDirectory "C:\cruciver"
Documents.Open FileName:=nomefiledaaprire, ConfirmConversions:=False, ReadOnly _
:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
, Format:=wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.SaveAs FileName:=nomefiledasalvare, FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveWindow.Close
Next P
End Sub