How do I use as Save As to take the name from a text and change the file path?

rosscortb · #4 03-08-2018, 02:39 AM

Hello,

I have been using the above code in my document and in other documents and it is working fine. However, even though it works in others in now seems to be not working in my contract document, the only thing I have done different is change the strPath to be saved in the 2018 folder instead of the 2017 one.

So the code now is

Code:

Dim fileName As String
Const strPath As String = "H:\HR\Reward & Shared Services\Shared Services Only\1 ~ Starters\5 ~ Offers Sent\2018 Offer of Employment Sent"
fileName = txtLastName.Value & "," & txtFirstName.Value & " - Contract"
With Dialogs(wdDialogFileSaveAs)
  .Name = strPath & fileName
  .Show

 
End With

What happens now is instead of the save as Dialog popping up and displaying LastName,FirstName- contract, it says 2018 Offer of Employment Sent LastName.FirstName -contract

Also, it doesn't save in the strPath but one folder before so
H:\HR\Reward & Shared Services\Shared Services Only\1 ~ Starters\5 ~ Offers Sent

Regards

Ross

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Turn OFF auto-adding file path as default alternative text for inserted objects	Sergey SPb	Drawing and Graphics	7	04-24-2017 11:25 PM
Word for Mac 2011: Change default open/save file locations?	cglenn	Word	0	06-01-2015 10:34 AM
Change old path to new path (batch)	NobodysPerfect	Word VBA	2	08-14-2014 10:09 PM
How to change save location and file to print name change?	albertc	Excel Programming	1	05-13-2012 07:05 PM
Word Macro: Save file as text with current file name	jabberwocky12	Word VBA	2	10-22-2010 12:23 PM