Changing file directory from a temp folder

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!

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