Changing file directory from a temp folder

dwirony · #1 12-13-2016, 10:15 AM

Hello all,

I am having trouble getting my macro to save my document into the desired location. The program I use attempts to save documents to a default temporary folder, and even after recording the process it still won't save my document to my desired location. Am I doing something wrong? How can I get my macro to override the default location for documents?

Code:

Sub Savetolocation
'
'
ChangeFileOpenDirectory "C:\Users\dwirony\My Documents\Overflow Folder\"
    ActiveDocument.SaveAs2 FileName:=ActiveDocument.Fullname, FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, CompatibilityMode:=14
End Sub

Guessed · #2 12-13-2016, 01:32 PM

ActiveDocument.FullName includes the entire path so you are simply saving the file over itself. Try

Code:

Sub Savetolocation()
  Dim sLocation As String
  sLocation = "C:\Users\dwirony\My Documents\Overflow Folder\" & ActiveDocument.Name
  ActiveDocument.SaveAs2 FileName:=sLocation, FileFormat:=wdFormatXMLDocument, CompatibilityMode:=14
End Sub

dwirony · #3 12-13-2016, 03:03 PM

Quote:

Originally Posted by Guessed

ActiveDocument.FullName includes the entire path so you are simply saving the file over itself. Try

Code:

Sub Savetolocation()
  Dim sLocation As String
  sLocation = "C:\Users\dwirony\My Documents\Overflow Folder\" & ActiveDocument.Name
  ActiveDocument.SaveAs2 FileName:=sLocation, FileFormat:=wdFormatXMLDocument, CompatibilityMode:=14
End Sub

Ahh, that makes sense. Your solution is getting it to save to the right file location, although now it's no longer changing the document to a .docx. I tried adding "& ".docx"" to the end of sLocation but the file name is retaining ".rtf" in the name now. How could I get it to change from rtf to docx?

Thank you for your assistance!

Guessed · #4 12-13-2016, 03:11 PM

That requires a bit more effort. This takes the current filename before the first period (assuming the first period is at the file extension), and appends the new file extension
Sub Savetolocation()
Dim sLocation As String, sFile as String
sFile = Split(ActiveDocument.Name,".")(0) & ".docx"
sLocation = "C:\Users\dwirony\My Documents\Overflow Folder\" & sFile
ActiveDocument.SaveAs2 FileName:=sLocation, FileFormat:=wdFormatXMLDocument, CompatibilityMode:=14
End Sub

Guessed · #5 12-13-2016, 03:14 PM

Whoops, I tried to edit and lost the message.

Try this

Code:

Sub Savetolocation()
  Dim sLocation As String, sFilename as String
  sFilename = Split(ActiveDocument.Name,".")(0) & ".docx"
  sLocation = "C:\Users\dwirony\My Documents\Overflow Folder\"
  ActiveDocument.SaveAs2 FileName:=sLocation & sFilename, FileFormat:=wdFormatXMLDocument, CompatibilityMode:=14
End Sub

dwirony · #6 12-13-2016, 03:17 PM

Quote:

Originally Posted by Guessed

That requires a bit more effort. This takes the current filename before the first period (assuming the first period is at the file extension), and appends the new file extension
Sub Savetolocation()
Dim sLocation As String, sFile as String
sFile = Split(ActiveDocument.Name,".")(0) & ".docx"
sLocation = "C:\Users\dwirony\My Documents\Overflow Folder\" & sFile
ActiveDocument.SaveAs2 FileName:=sLocation, FileFormat:=wdFormatXMLDocument, CompatibilityMode:=14
End Sub

Luckily for me the first period is at the file extension. Genius solution, thanks for the help Andrew.

gmayor · #7 12-13-2016, 09:41 PM

If there are more than one period characters, using split creates a few more problems. It would be better to use

Code:

    sFile = ActiveDocument.Name
    sFile = Left(sFile, InStrRev(sFile, Chr(46))) & "docx"
    'or, if you want to add some text to the end of the filename
    'sFile = Left(sFile, InStrRev(sFile, Chr(46)) - 1) & "-sometext.docx"

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word 2010 Macro to rename Folder in Directory	staicumihai	Word VBA	2	10-28-2016 03:01 AM
vba code for folder name, subfolder directory, file name & revision times	klpw	Excel Programming	2	12-24-2015 12:31 AM
Command button - save in temp folder and send email with attachment	bigbird69	Word VBA	13	11-18-2012 10:06 PM
outlook 2003 always not remove temp copy of opened attachments in temporary folder	c.itech	Outlook	0	06-20-2011 10:34 PM
Error 451 - Could´t Open Temp file	greenberet	Outlook	1	09-06-2010 05:35 AM