I have an application written in VB6. Once I have created a word document within the application and do a saveas the save as dialog pop ups and my application waits for the user to click on "Save".
I have set the filename and file format before calling saveas.
Since this application is supposed to run unattended as an application this is a problem.
This worked with Office 2003 but when we upgraded to Office 2010 we now have the application waiting for a user to click "Save"
Any ideas on what setting I need to change so that the Save dialog is suppressed and the file is just saved based on the filename and type set in the VB6 application?
Thanks.

Is there a reason you're working through the SaveAs dialogue, rather than using .SaveAs?

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

I found another clue. The original document that I want to open and then do a save as word document is being created with an internal format of rtf.
Apparently Office 2003 was willing to open a document that was rtf internally and then save it back to the same name but using the Office 2003 Word doc format without asking for confirmation from the user.
This was how the application was able to provide different internal formats for .doc files.
I think Microsoft has changed the rules again and I am just out of luck.
Does anyone have any ideas.

That's all very well, but it still doesn't explain why you're trying to work through the dialogues instead of using the .SaveAs method - using the dialogues has never been necessary and using the .SaveAs method avoids any prompts. Done properly, even using the dialogues should be completely transparent. As you haven't posted any code, though, I can't comment on what its issues might be.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

I am using the SaveAs method and I am setting the format but Word still prompts me as the file that I have open is rtf. If I have opened a file whose internal format is Word doc then Word doesn't display the Save dialog. Here's some code


You need to create c:\tmp\test.doc as a file with an internal format of rtf.
Word still allows you to do that but you will have to rename the file to test.doc.
Create a VB6 project with just a form and run it.
Save dialog will come up every time and I have no idea how to tell Word that I really want to save this file as a file with doc or docx internal format.

Too bad Word keeps getting modified so that it is "better".

If you create a file that is really a doc file and run the code then Save dialog does not come up.

I'm open to any thoughts on how I can do this from a MS MVP Word expert.
Currently probably going to have go with a kludge like ClickOff.

Thanks

The prompt is most likely due to the fact that the document was originally opened in one format and is being saved in another but you're not releasing the version in its original format. I would expect Word to behave this way in all versions. All you need do is change:
WW.ActiveDocument.Close
to:
WW.ActiveDocument.Close False

PS: I also note that, although you have:
FileName = "C:\tmp\test.doc
you don't use it in:
WW.activedocument.SaveAs FileFormat:=SaveFormat

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

So are you saying that changing the close statement which is executed after the saveas is going to solve my problem? Since the save dialog is displayed prior to calling the close and the application is waiting for the save dialog to be completed your suggestion doesn't make sense to me.

But like any good newby I tried it which you obviously didn't and it didn't help which was not much of a surprise.

I really appreciate your time and effort in looking at my problem.

Did you try it?

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

That's what I said in my previous post.

I tried it but you obviously didn't try your solution or you would have found out that it doesn't work for the reasons that I also put in my previous post.

It works for me...

Although it shouldn't be necessary, you might try changing:
WW.activedocument.SaveAs FileFormat:=SaveFormat
to:
WW.activedocument.SaveAs2 FileFormat:=SaveFormat

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Can you send me the file that you test that is rich text format so I verify that it's not something that I am doing wrong when creating my rtf file?
Thanks

See attached. As I don't have VB6, I'm running the code as an ordinary macro from within the document itself. I've modified the code to save the file to the desktop. The macro is in the 'ThisDocument' module.

Attached Files

Sample.zip (13.9 KB, 11 views)

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

The file you sent me was not internally an rtf file. It did have an rtf suffix but if you examine the contents using a tool that shows you the binary contents of the file you will see that it is not an rtf file. It looks like a doc or a docx file and consequently your test worked. My program works if you start with a file that has doc or docx format internally and try to save it as a doc file. The problem is that if you open a real rtf file and then try to save it as a doc file you cannot suppress the Save dialog.

It appears that you are confused about internal formats and the suffix that a file has. A file with a suffix of rtf does not mean that the internal contents are rtf.

I created the file in Word 2010 and used SaveAs to save it as an RTF file. I didn't then go an examine the contents, as I expected the output to conform to the RTF specifications. I am not confused as to formats vs file extensions. I suppose I should have twigged to something being amiss when it allowed me to save the file with the macro. Attached is another file - this time a true RTF. The macro that's in the other one works fine with this file too.

Attached Files

Sample.zip (12.6 KB, 11 views)

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

I think I understand why we are not communicating very well. I thought you, as an expert in Word, knew that doing this operation with Word was the same as doing it from within VB6.
Apparently it isn't
Try this code snippet using cscript and then we will be comparing apples to apples. I have used both Windows 7 (32 bit) , Windows 2008 R2, and XP to demonstrate that the Save dialog always comes up with Word 2010 or Word 1013.

I realize this is not strictly a Word question but it does have to do with the Word object.


Dim WW
Dim FileName
Dim SaveFormat
FileName = "C:\tmp\sample.rtf"
SaveFormat = 0
Set WW = CreateObject("Word.Application")
WW.Visible = True
WW.Documents.Open FileName
call WW.activedocument.SaveAs (FileName, SaveFormat)
WW.activedocument.Close False


where c:\tmp\sample.rtf is internally an rtf file.

The last sample.rtf file you sent me was internally an rtf file.
Thanks again.