Convert 2000 format to 97 format? , How?

[oktay]

Hi,
Can I make a program that can change word2000 and excel2000 documents in office97 format ?.There is a lot of document ( more than 1000 ).How?

[plenderj]

Dim x As New Word.Application
    x.ActiveDocument.SaveAs "c:\something.doc", fileFormatConstant

Thats how you'd do it, but im currently looking for the proper format for you...

[plenderj]

You can use the fileconverter, and would use this converter : "Word 97-2002 & 6.0/95 - RTF"

[plenderj]

According to this sub I wrote in word :

Sub s()
    For Each conv In FileConverters
        If InStr(conv.FormatName, "97") <> 0 And InStr(conv.FormatName, "2002") <> 0 Then
            InputBox "", "", conv.SaveFormat
        End If
    Next conv
End Sub

You would use Converter 21.
So the original code would look like this :

Dim x As New Word.Application
    x.Documents.Open "c:\a.doc"
    x.ActiveDocument.SaveAs "c:\b.doc", 21