Access and Word vba

Hi EE

I have the following

Dim objWord As Word.Application
Dim doc As Word.Document
Dim WordHeaderFooter As HeaderFooter

Set objWord = CreateObject("Word.Application")

With objWord
    .Visible = True

    Set doc = .Documents.Add
    doc.SaveAs CurrentProject.Path & "\TestDoc.docx"
End With

At the moment it is saving in the project folder. I am trying to change it so it saves to another location.
I have tried doc.SaveAs "C:\location\" & "\Doc.docx"  but it wont accept. any help appreciated

chestera
chesteraAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Ryan ChongCommented:
>>I have tried doc.SaveAs "C:\location\" & "\Doc.docx"  but it wont accept. any help appreciated

1. make sure the selected folder exist?
2. make sure you have enough permission to write to that folder?
0
Ryan ChongCommented:
and you can try:
doc.SaveAs "C:\location\Doc.docx"

Open in new window

instead of:
doc.SaveAs "C:\location\" & "\Doc.docx"

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
chesteraAuthor Commented:
Ryan Chong

Hi Ryan When I  use doc.SaveAs "C:\location\" & "\Doc.docx"    I get Error 5152 check the path. I know the path is correct.

Alan
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

Ryan ChongCommented:
as mentioned, have you tried?

>> doc.SaveAs "C:\location\Doc.docx"

is folder: C:\location exist and accessible with write permission?

can you post the full error message for Error 5152 ?
0
chesteraAuthor Commented:
Ryan Chong

I have fixed the problem. Looking the path all seemed ok so just to make sure I deleted the folder and re-installed and it now works must have been some small unseen corruption. Thank you for your help

Alan
0
chesteraAuthor Commented:
Thank you again
0
Jim Dettman (Microsoft MVP/ EE MVE)President / OwnerCommented:
chestera

Usually it is spaces in path names (sometimes it is hard to tell if you have more than one) or repeating back slashes, or a problem with delimiters.

 So here's a tip and this applies to anything that you might assemble as a reference  (like a SQL Statement your going to execute in code) from literals or other variables.   Always put it in a variable and execute it like this:

strFullPath = "C:\location\" & "\Doc.docx"  
doc.SaveAs strFullPath

The reason to do it this way (even though it is a little more overhead) is that you can put a break point on the line and inspect the full reference that the statement will use.

This makes it a lot easier to debug and spot mistakes as often when using other variables, the problem is with the data which you don't see.  For example, in a SQL Statement, you might have a last name of "D'Angelo", with that extra apostrophe giving you all kinds of grief.

In this case, it would become obvious that you had:

"C:\location\\Doc.docx"  

 Maybe that was a typo, but maybe not.  Anyway, you can see what I am getting at.

HTH,
Jim.
0
chesteraAuthor Commented:
Jim Dettman

Hi Jim

Thank you for that advice most appreciated

Alan
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.