Cuestión : Tener acceso al comando de VBA de enumerar la palabra doc. para combinarse

He utilizado esta escritura antes de que pero no pueda encontrarla.  El VBA está en el acceso app.  El usuario chasca encendido un botón de comando y una lista de toda la palabra doc. en la misma carpeta que el acceso app se exhibe en un lista de persiana.  El usuario selecciona la palabra doc. que entonces se abre.  Entonces el usuario combina los datos del acceso en la palabra doc. class= del

Respuesta : Tener acceso al comando de VBA de enumerar la palabra doc. para combinarse

Hmm. Quizás el acceso no tiene la referencia de la oficina por abandono, así que puede ser que tengamos que utilizar el diálogo de la palabra. Eso lo hace incluso más simple.
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
Otras soluciones  
 
programming4us programming4us