Questione : Accedere all'ordine di VBA elencare i documenti di parola per fondersi

Ho usato questo scritto prima che ma non potesse trovarlo.  Il VBA è nell'accesso app.  L'utente scatta sopra un pulsante di comando e una lista di tutti i documenti di parola nello stesso dispositivo di piegatura come l'accesso app è visualizzato in una lista di goccia giù.  L'utente seleziona il documento di parola che allora si apre.  Allora l'utente fonde i dati di accesso nella parola doc. class= del

Risposta : Accedere all'ordine di VBA elencare i documenti di parola per fondersi

Hmm. Forse l'accesso non ha il riferimento dell'ufficio per difetto, in modo da potremmo dovere usare il dialogo di parola. Quello lo rende ancora più semplice.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

OpenSelectedDoc secondario ()
    wdApp fioco come oggetto 'Word.Application
    Fd fioco come oggetto 'Word.Dialog
    
    Sul riassunto di errore dopo
        Regolare il wdApp = GetObject (, “Word.Application„)
    Sull'errore 0 di avanzamento
    Se il wdApp allora è niente
        Regolare il wdApp = CreateObject (“Word.Application„)
    Concluder se
    wdApp.Visible = allineano

    Regolar fd = wdApp.Dialogs (80) 'wdDialogFileOpen
    fd. Nome = CurrentProject.Path & “\„
    fd. Esposizione

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us