Este comando do WORD faz o seguinte; Abre o userform com um Textbox e um botão
1°Comando - Ctrl + T
2°Comando - Ctrl + C
3°Comando - Abri outra página do word
4°comando - Ctrl + V ' cola
5°comando - Salva na pasta directory 'Aqui eu quero mudar
6°comando - Salva e Fecha a página.

Private Sub CommandButton1_Click()
Selection.WholeStory
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.PasteAndFormat (wdPasteDefault)
ChangeFileOpenDirectory _
"C:UsersMPDesktopRELATORIOS20147-Julho"
ActiveDocument.SaveAs2 FileName:=TextBox1 & ".docx", FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False, CompatibilityMode:=14
UserForm1.Hide
ActiveWindow.Close
End
End Sub

Como faço para retirar esta linha; "directoy "C:UsersMPDesktopRELATORIOS20147-Julho". E a macro reconhece a mesma pasta da original e ali fosse salva a copia.