Const sPath As String = "c:\conv\"
Dim sFileName As String
sFileName = Dir$(sPath + "*.doc")
Do Until Len(sFileName) = 0
Dim aD As Word.Document
Set aD = Documents.Open(FileName:=sPath + sFileName, ReadOnly:=True)
L = InStrRev(sFileName, ".")
aD.SaveAs Left$(sFileName, L) + "rtf", wdFormatRTF
sFileName = Dir$
Loop
--------------------
I can resist anything but temptation
(c) Oscar Wilde
Назад
Конференция
Вперед
Списком
У тебя же вроде программеров гора?
[ #
Редактировать
Ответить
Цитата
