1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
OpenSelectedDoc secundário () wdApp não ofuscante como o objeto 'Word.Application Fd não ofuscante como o objeto 'Word.Dialog No resumo do erro em seguida Ajustar o wdApp = o GetObject (, “Word.Application”) No erro 0 empreendedores Se o wdApp não é nada então Ajustar o wdApp = o CreateObject (“Word.Application”) Terminar se wdApp.Visible = retificam Ajustar fd = wdApp.Dialogs (80) 'wdDialogFileOpen fd. Nome = CurrentProject.Path & “\” fd. Mostra Submarino da extremidade