Word 2010 & VBA & Run-time Error 5487

[tzw1378]

Hello,

This is a question related to Word 2010. If a moderator sees this and deems it inappropriate for this forum, I understand. In such a case, please remove immediately.

I've searched extensively but haven't found a way to correct this run-time error 5487 which is indicating a file permission error.

        ChangeFileOpenDirectory FoldertoSaveIn
        DocName = ActiveDocument.Paragraphs(4).Range
        ActiveDocument.SaveAs2 FileName:=DocName & " " & Format(Now, "dd-mm-yyyy hh.mm.ss") & ".docx", FileFormat:=wdFormatDocumentDefault
        ActiveDocument.Close

The above code doesn't work and I can't determine how to fix it.

Thank you in advance for your help.

 

[BrianMH]

Does the answer found here help?

 

[tzw1378]

Thank you all for viewing this and to Brian for his reply. While I didn't see a link in Brian's thread, I write now to let you know that I worked around the issue. For some reason, it didn't agree with how I was setting "DocName." While I still used the above "Paragraphs(4)" reference, in the next line I did:

sDocName = CStr(Trim(Left(sDocName, 9))) & " "

As shown, it desperately needed to be converted to a string!

Have a great day.

 

[BrianMH]

Thank you all for viewing this and to Brian for his reply. While I didn't see a link in Brian's thread, I write now to let you know that I worked around the issue. For some reason, it didn't agree with how I was setting "DocName." While I still used the above "Paragraphs(4)" reference, in the next line I did:

sDocName = CStr(Trim(Left(sDocName, 9))) & " "

As shown, it desperately needed to be converted to a string!

Have a great day.

Yeah that's basically what the link was. Making sure it's a proper string.