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
|