Open all files in a directory and save them as docs

[guitardave78]

Said it in the title really, i need to be able to choose a directory, open all the files and then save them as doc files with the same name as the original files

Any ideas!?

 

[MakeItSo]

How 'bout this:

Dim pos,ctr as Integer
Dim myDocname as String

With Application.FileSearch
.FileName="*.*"
.LookIn = YourPath
.SearchSubFolders = True or False as you like it
.Execute
For ctr = 1 to .FoundFiles.Count
Documents.Open FoundFiles.Item(ctr)
ChangeFileOpenDirectory YourPath
myDocname=ActiveDocument.FullName
pos = InStr(myDocname, ".&quot
If pos > 0 Then
myDocname = Left(MyDocname, pos-1)
myDocname=myDocname & ".doc"
ActiveDocument.SaveAs FileName:=myDocname, FileFormat:=wdFormatDocument
End If
ActiveDocument.Close
Next
End With

Should do fine.

MakeItSo

Andreas Galambos
EDP / Technical Support Specialist
Bowne Global Solutions Wuppertal, Germany
(andreas.galambos@bowneglobal.de)
HP:

http://home.arcor.de/andygalambos