Macro on Directory of Files 1

[dansleight]

I have a directory of a large number of RTF files. I need to open each one, apply an image, then save the file as a .doc file (saving as rtf makes the file 20megs, saving as doc makes the file 1meg).

My question is is this possible? I need a hint as to how to apply a Macro to the entire directory.

 

[nath]

Hi there,

I don't know about the details of applying the code itself but here is your hint about doing it for a whole directory (it loops through the directory to find each RTF file)

Sub MySub
   Dim MyFile as String
   
   MyFile = Dir("MyPath\MyDirectory\*.RTF")
   Do While MyFile <> &quot;&quot;
     'Open MyFile; Apply image; Save as doc; Close file
     MyFile = Dir
   Loop
End Sub

Good luck,

Nath

 

[dansleight]

That was exactly what I needed. Thanks