1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
OpenSelectedDoc secundario () wdApp dévil como objeto 'Word.Application Fd dévil como objeto 'Word.Dialog En curriculum vitae del error después Fijar el wdApp = GetObject (, “Word.Application”) En el error 0 indicado Si el wdApp entonces no es nada Fijar el wdApp = CreateObject (“Word.Application”) Terminar si wdApp.Visible = verdad Fijar fd = wdApp.Dialogs (80) 'wdDialogFileOpen fd. Nombre = CurrentProject.Path y “\” fd. Demostración Submarino del extremo