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

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