Microsoft Office Forums - View Single Post - [Solved] Changing file directory from a temp folder

Guessed · 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