View Single Post
 
Old 09-21-2020, 03:36 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,932
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

I think you missed a backslash. Add another couple of lines to see what the full path is

strPath = Environ("USERPROFILE") & "\Documents\final doc"
strPath = strPath & TextBox2.Text & "." & TextBox1.Text & ".docx"
Debug.Print strPath
ActiveDocument.SaveAs strPath
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote