Sub Demo() With Dialogs(wdDialogInsertFile) SendKeys "%n{TAB}t", True SendKeys "{TAB}{TAB}{TAB}{TAB}{ENTER}W:\Daily to Fortis\Today\{ENTER}", True .Show End With End Sub