Vista - Saving a Word document as 97-2003 using Word 2007

Hello,

I'm making a VBS to build a Word document with pictures and text.
I have to save it in Word97-2003 format.

Example :
-----------------------------------------------------------------------------------------------------

Dim strCurPath
strCurPath = CreateObject
("Scripting.FileSystemObject").GetAbsolutePathName(".")

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

objSelection.Font.Name = Arial
objSelection.Font.Size = 22
objSelection.Font.Underline = 1
objSelection.ParagraphFormat.Alignment = 1
objSelection.TypeText "Métrologie APPSMON"

objDoc.SaveAs strCurPath & "\TEST1.docx", 0
objDoc.SaveAs strCurPath & "\TEST2.doc", 0

objWord.Quit
-----------------------------------------------------------------------------------------------------

My problem is that TEST2.doc is not readable by Word2003, my script
just changed the extension, but the file format seems to be Word2007 :
(
The "0" comes from http://msdn.microsoft.com/en-us/library/bb238158.aspx
where it says that both wdFormatDocument and wdFormatDocument97
constant has a 0 value.

Any idea on how to save a a document in Word97-2003 format using
Word2007 and VBS ?

Thanks a lot for helping

On Apr 1, 6:01*am, Martin <martin.bay...@xxxxxx> wrote:In the same Office reference under the Document Object SaveAs method's
documentation is the statement:

FileFormat Optional Variant

The format in which the document is saved. Can be any WdSaveFormat
constant. To save a document in another format, specify the
appropriate value for the SaveFormat property of the FileConverter
object.

Note the last sentence.

I run Office 2003 with the 2007 file converter installed. Recording a
macro to make the conversion to Word 97/2003 results in this like of
code just befor the save statement ...

Application.DefaultSaveFormat = "MSWord6RTFExp"

I would suggest you record a macro while manually stepping through a
file conversion SaveAs and go to school on the result.

HTH,

Tom Lavedas
***********
http://there.is.no.more/tglbatch/

On 1 avr, 14:41, T Lavedas <tglba...@xxxxxx> wrote:Word 2007 saving macro :
ActiveDocument.SaveAs FileName:="zerzerzerrzerzer.docx",
FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="",
AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False,
_
SaveAsAOCELetter:=False

Word 97/2003 saving macro :
ActiveDocument.SaveAs FileName:="azeazeaze.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="",
AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False

wdFormatDocument = 0 according to http://msdn.microsoft.com/en-us/library/bb238158.aspx
so my line objDoc.SaveAs strCurPath & "\TEST2.doc", 0 should save as
Word97/2003 but it doesn't

On Apr 1, 9:00*am, Martin <martin.bay...@xxxxxx> wrote:Sorry, I forgot to mention that as you record the macro it is
important that you select the Save Options and then select the
translation that you want to execute as you save the document. It is
a separate dialog that should be available from the SaveAs dialog
window (at least it is in 2003). This changes what is recorded in the
macro - to include the FileConverter part of the process.

Tom Lavedas
***********
http://there.is.no.more/tglbatch/