Pergunta : Alcançar o comando de VBA alistar a palavra docs para fundir

Eu usei este certificado antes que mas não possa o encontrar.  O VBA está no acesso app.  O usuário estala sobre uma tecla de comando e uma lista de toda a palavra docs no mesmo dobrador que o acesso app é indicado em uma lista de gota para baixo.  O usuário seleciona a palavra Doc que abre então.  Então o usuário funde os dados do acesso na palavra doc. class= do

Resposta : Alcançar o comando de VBA alistar a palavra docs para fundir

Hmm. Talvez o acesso não tem a referência do escritório à revelia, assim que nós pudemos ter que usar o diálogo da palavra. Isso fá-lo mesmo mais simples.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

OpenSelectedDoc secundário ()
    wdApp não ofuscante como o objeto 'Word.Application
    Fd não ofuscante como o objeto 'Word.Dialog
    
    No resumo do erro em seguida
        Ajustar o wdApp = o GetObject (, “Word.Application”)
    No erro 0 empreendedores
    Se o wdApp não é nada então
        Ajustar o wdApp = o CreateObject (“Word.Application”)
    Terminar se
    wdApp.Visible = retificam

    Ajustar fd = wdApp.Dialogs (80) 'wdDialogFileOpen
    fd. Nome = CurrentProject.Path & “\”
    fd. Mostra

Submarino da extremidade
Outras soluções  
 
programming4us programming4us