Fråga : Ta fram VBA befaller för att lista uttrycker docs för att applicera

Jag har använt denna skrivar, för men inte kan finna den.  VBAEN är i ta fram app.  Användaren klickar på en befalla knäppas, och en lista uttrycker allra docs i den samma mappen som ta fram app visas i en tappa besegrar listar.  Användaren väljer uttrycka Doc som öppnar därefter.  Därefter användaresammanfogning ta framdatan in i uttrycka doc. " klar "

Svar : Ta fram VBA befaller för att lista uttrycker docs för att applicera

Hmm. Ta fram kanske har inte kontoret att hänvisa till vid standard, så vi kan måste att använda uttrycka förar dialog. Det gör den även enklare.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

UnderOpenSelectedDoc ()
    Dunkel wdApp som anmärker 'Word.Application
    Dunkel fd som anmärker 'Word.Dialog
    
    På felmeritförteckning därefter
        Fastställd wdApp = GetObject (, ”Word.Application”)
    På fel GoTo 0
    Om wdApp är ingenting därefter
        Fastställd wdApp = CreateObject (”Word.Application”)
    Avsluta om
    wdApp.Visible = True

    Uppsättningen fd = wdApp.Dialogs (80) 'wdDialogFileOpen
    fd. Namnge = CurrentProject.Path & ”\”,
    fd. Visa

Avsluta suben
Andra lösningar  
 
programming4us programming4us