Vraag : Het bevel van de toegang VBA om van doc. een lijst te maken van Word voor het samenvoegen

Ik heb dit manuscript gebruikt alvorens maar niet het kan vinden.  VBA is in de Toegang app.  De gebruiker klikt op een bevelknoop en een lijst van alle doc. van Word in de zelfde omslag die de Toegang app in een daling onderaan lijst wordt getoond.  De gebruiker selecteert Van Word doc.- dat dan opent.  Dan voegt de gebruiker de gegevens van de Toegang in het Woord doc. samen

Antwoord : Het bevel van de toegang VBA om van doc. een lijst te maken van Word voor het samenvoegen

Hmm. Misschien heeft de Toegang niet de verwijzing van het Bureau door gebrek, zodat zouden wij de dialoog van Word kunnen moeten gebruiken. Dat maakt het nog eenvoudiger.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Sub OpenSelectedDoc ()
    Schemerige wdApp als Voorwerp 'Word.Application
    Schemerige f-d als Voorwerp 'Word.Dialog
    
    Op Fout hervat daarna
        Plaats wdApp = GetObject (, „Word.Application“)
    Op Fout GoTo 0
    Als wdApp dan niets is
        Reeks wdApp = CreateObject („Word.Application“)
    Eind als
    wdApp.Visible = Waar

    Vastgestelde f-d = wdApp.Dialogs (80) 'wdDialogFileOpen
    f-d. Naam = CurrentProject.Path & „\“
    f-d. Toon

Beëindig Sub
Andere oplossingen  
 
programming4us programming4us