[RESOLVED] save as type: 97-2003 (*.doc)

[MrtforCode]

Hello, I am looking for a way to save a word document as type: Word 97-2003 Document (*.doc). this is needed because some people are not using word 2007 and they a problem opening the file. What's the solution to this?
Thanks

at the moment I use this to save the file:

oDoc.SaveAs(strFileName)

[Siddharth Rout]

Since I don't have MSO 07 at the moment but try this and you will be able to get the code that you want.

Start the macro and then save the file in "Word 97-2003 Document (*.doc)" format. you will get a code which you can then amend... you might get a code as shown below.

ActiveDocument.SaveAs FileName:="Sample.doc", FileFormat:=100, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False

[MrtforCode]

yes I got something similar to yours, from all of that I think only this bit is needed - 'FileFormat = wdFormatDocument' but I didn't find a way to amend that yet
thanks

[Siddharth Rout]

Post the exact code that you got after recording the macro...

[MrtforCode]

Sub Macro6()
'
' Macro6 Macro
'
'
ChangeFileOpenDirectory "C:\Users\AdminMGR\Desktop\"
ActiveDocument.SaveAs FileName:="Doc1.doc", FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveWindow.Close
Application.Quit
End Sub

[Siddharth Rout]

Try this in your actual project...

strFileName = "C:\Users\AdminMGR\Desktop\Doc1.doc"
 
oDoc.SaveAs FileName:=strFileName, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False

[MrtforCode]

how should I amend this bit - 'FileFormat:=wdFormatDocument'. it is giving me an error - 'name is not declared'

[Siddharth Rout]

Try this

strFileName = "C:\Users\AdminMGR\Desktop\Doc1.doc"
 
oDoc.SaveAs FileName:=strFileName, FileFormat:=100, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False

[MrtforCode]

right, with this I can't open it myself anymore

[Siddharth Rout]

Sorry I didn't get you? Can you attach a sample file which is saved using the above code?

[MrtforCode]

attachment

[Siddharth Rout]

I see what you mean... you can delete the file... Let me check that for you...

[MrtforCode]

just need to find out what is the format code for MS word compatible version (2003), I am still trying to google it but...

[Siddharth Rout]

Try with FileFormat:=0 instead of FileFormat:=100

[MrtforCode]

yes this is working fine
thanks resolved