Excel VBA Save AS (word document) not working with Word 2010

[jscranton]

I have a long bit of code that at one point saves a Word document and then saves it again with a new name and the old (legacy) .doc extension.

This all works find when the user is running Office 2007. However, it errors out for anyone using Office 2010. The reference libraries are all correct (as far as I know).

Can anyone point me towards a solution.

    Dim myDoc As Word.Document
    Dim saveAsName as String

    saveAsName = "some text here" + ".doc"
   
    myDoc.Save
    
    myDoc.SaveAs fileName:=(saveAsName), FileFormat:=wdFormatDocument

 

[Andrew Poulsom]

What error do you get?

 

[jscranton]

Run-Time Error 5152: This is not a valid file name.

 

[Andrew Poulsom]

Firstly, you should use & for concatenation not +. Secondly, try removing the parentheses around (saveAsName).

 

[jscranton]

Sorry, it was an & in the script. I free typed that. Let me see if removing the parenthesis works.

 

[Andrew Poulsom]

It's always best to copy and paste the actual code rather than typing pseudo code.

 

[jscranton]

Removing the parenthesis didn't help. Here is the full piece of code (the variable in formName are all strings). Just to reiterate, this works fine in Word 2007:

    formName = "Project " & subject & "_" & feedbackType & "_" & errorDate & "_" & recepient</SPAN>
    saveAsName = "Reviewer_Feedback_" & formName & ".doc"   

    
    'save document</SPAN>
   
    myDoc.Save

</SPAN>    'save as legacy file
   
    myDoc.SaveAs fileName:=saveAsName, FileFormat:=wdFormatDocument</SPAN>

 

[Andrew Poulsom]

What is the file name if you output it to the Immediate window?

Debug.Print saveAsName

 

[jscranton]

"Reviewer_Feedback_Project Click here to enter text.--Click here to enter a date.-Click here to enter text..doc"

 

[Andrew Poulsom]

Well I can save a document with that name in Word 2010. I think the FileFormat should be wdFormatDocument97.