Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 11

automazione word

  1. #1
    leogio non  in linea Novello
    Ciao, qualcuno pu spiegarmi perch questo codice non mi funziona??? Problemi:
    1) non si apre word (Solo se cambio Word.Application in Object (2 riga) si apre ma mi da errore)
    2) aperto non fa nulla (dovrenne digitare il testo)
    In sistesi devo aprire un documento .dot tipo lettera (nel codice sotto stato omesso questo) che prende i dati da un database access.
    Da quello che ho letto nei vari siti credo di avrere dei problemi con le librerie o con gli automatismi, anche se ho provato a reinstallare office ex novo.
    Se vi pu essere d'aiuto ho provato il file della CISA2 sull'automazione word-excel e non mi funziona, lo stesso file aperto su un'altro pc con lo stesso office funziona correttamente. Perch?????????????????????
    Grazie

    Private Sub Comando3_Click()
    Dim Wrd as Word.Application
    Dim Doc as Word.Document
    On Error GoTo Err_Comando3_Click

    Set Wrd = CreateObject("Word.Application")
    Set Doc = Wrd.Documents.Add

    Wrd.Visible = True
    Wrd.Activate

    With Wrd.Selection
    .TypeText "Ciao"
    End With 'Wrd.Selection

    Exit_Comando3_Click:
    Exit Sub

    Err_Comando3_Click:
    MsgBox Err.Description
    Resume Exit_Comando3_Click


    End Sub

  2. #2
    L'avatar di amanu86
    amanu86 non  in linea Scolaretto
    Quote Originariamente inviato da leogio Visualizza il messaggio
    Ciao, qualcuno pu spiegarmi perch questo codice non mi funziona??? Problemi:
    1) non si apre word (Solo se cambio Word.Application in Object (2 riga) si apre ma mi da errore)
    2) aperto non fa nulla (dovrenne digitare il testo)
    In sistesi devo aprire un documento .dot tipo lettera (nel codice sotto stato omesso questo) che prende i dati da un database access.
    Da quello che ho letto nei vari siti credo di avrere dei problemi con le librerie o con gli automatismi, anche se ho provato a reinstallare office ex novo.
    Se vi pu essere d'aiuto ho provato il file della CISA2 sull'automazione word-excel e non mi funziona, lo stesso file aperto su un'altro pc con lo stesso office funziona correttamente. Perch?????????????????????
    Grazie

    Private Sub Comando3_Click()
    Dim Wrd as Word.Application
    Dim Doc as Word.Document
    On Error GoTo Err_Comando3_Click

    Set Wrd = CreateObject("Word.Application")
    Set Doc = Wrd.Documents.Add

    Wrd.Visible = True
    Wrd.Activate

    With Wrd.Selection
    .TypeText "Ciao"
    End With 'Wrd.Selection

    Exit_Comando3_Click:
    Exit Sub

    Err_Comando3_Click:
    MsgBox Err.Description
    Resume Exit_Comando3_Click


    End Sub
    Per prima cosa metti Dim Wrd as New Word.Application e togli la riga
    Set Wrd = CreateObject("Word.Application")
    ℹ️ Leggi di pi su amanu86 ...

  3. #3
    L'avatar di amanu86
    amanu86 non  in linea Scolaretto
    Ancora una cosa metti Doc.Activate non wrd.activate

    Ciao
    ℹ️ Leggi di pi su amanu86 ...

  4. #4
    leogio non  in linea Novello
    Per prima cosa metti Dim Wrd as New Word.Application e togli la riga
    Set Wrd = CreateObject("Word.Application")

    errore run time 48
    errore caricamento dll

  5. #5
    L'avatar di amanu86
    amanu86 non  in linea Scolaretto
    Che Word hai? 2003? Controlla nei riferimenti del progetto access dovresti avere "Microsoft Word 11.0 Object Library"

    Comunque quegli errori sono strani... probabilmente hai dei problemi con le dll word
    ℹ️ Leggi di pi su amanu86 ...

  6. #6
    leogio non  in linea Novello
    scusa ho fatto i cambiamento su un'altra stringa di un altro file...(sempre con automazione word-access). Sul file corretto mi dice "errore di compilazione:tipo definito dall'utente non definito"
    grazie

  7. #7
    leogio non  in linea Novello
    si 2003 e ho la Microsoft Word 11.0 Object Library.

  8. #8
    L'avatar di amanu86
    amanu86 non  in linea Scolaretto
    Allora questo il codice che sul mio pc funziona correttamente
    Dim Wrd As New Word.Application
    Dim Doc As Word.Document
    On Error GoTo Err_Comando3_Click
    
    'Set Wrd = CreateObject("Word.Application")
    Set Doc = Wrd.Documents.Add
    
    Wrd.Visible = True
    Doc.Activate
    
    With Wrd.Selection
    .TypeText "Ciao"
    End With 'Wrd.Selection
    
    Exit_Comando3_Click:
    Exit Sub
    
    Err_Comando3_Click:
    MsgBox Err.Description
    Resume Exit_Comando3_Click
    
    Prova a copiarlo e incollarlo e vedere se anche a te va.
    ℹ️ Leggi di pi su amanu86 ...

  9. #9
    leogio non  in linea Novello
    Con questa stringa mi apre solo un documento vuoto (riportandomi in background "tipo non corrispondente". La tua mi dava gli stessi errori di prima. Comunque non mi digita nulla!!!!!!!!!!!

  10. #10
    L'avatar di amanu86
    amanu86 non  in linea Scolaretto
    Dove ti d l'errore "tipo non corrispondente" ? dovresti fare un debug passo passo e vedere dove vengono fuori gli errori.
    ℹ️ Leggi di pi su amanu86 ...

+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo

Potrebbero interessarti anche ...

  1. Automazione word
    Da Jocman nel forum Microsoft Access
    Risposte: 2
    Ultimo Post: 02-03-2017, 08:42
  2. Vba automazione word da excel
    Da Chicco1962 nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 08-10-2016, 15:05
  3. Automazione word
    Da CESABAS nel forum Microsoft Access
    Risposte: 1
    Ultimo Post: 05-03-2015, 14:40
  4. automazione word
    Da margiu nel forum Microsoft Access
    Risposte: 6
    Ultimo Post: 08-11-2011, 21:07
  5. Automazione Word
    Da Rob nel forum Microsoft Word
    Risposte: 2
    Ultimo Post: 28-01-2008, 19:37