[VB6] Passare dati da VB6 a documento Word

[angelicab]

ciao!
è possibile passare dei dati da vb6 a word per compilre un modulo .doc??

io ho già un modulo preimpostato .. a cui dovrei aggiungere dei dati presi dal DB ..

[Jupy64]

Certo che si può, ci sono diversi modi, metti dei segnalibri nel modello word nei punti in cui devi inserire i dati e poi fai una cosa del genere:

Private Sub DocWord(tipoModello as String)
  Dim objDoc As Word.Document
  Set objDoc = New Word.Document
  With objDoc.Application
    If Not .Visible Then
       .Visible = True
    End If
    .Activate
    .Documents.Add (App.Path & "\ModelliDoc\" & tipoModello)

    .Selection.GoTo What:=wdGoToBookmark, Name:="Nome"
    .Selection.TypeText Text:=rsTabella!NOME
            
    .Selection.GoTo What:=wdGoToBookmark, Name:="Cognome"
    .Selection.TypeText Text:=rsTabella!COGNOME
  End With
  Set objDoc = Nothing
End Sub

Se ti dovessero servire altre istruzioni "word", basta che apri un documento word, attivi il registratore di macro, fai le operazioni manuali che vorresti fare in automatico tramite vb e poi ti vai a leggere la macro che ha generato..prendi le istruzioni che ti servono.

[angelicab]

grazie mille

[dolce23it]

Ciao ragazzi,
Io ho lo stesso problema del ragazzo sopra indicato, in pratica devo prelevare dei record che si trovano su una tabella, campo Indirizzi, e tramite vb6 o vbs metterli su un foglio word.
Ho cercato di eseguire lo script indicato in questa discussione, ma non riesco a capire dove mettere la connessione al db.
Forse mi manca qualche pezzo.....!!!!
Mi potreste aiutare...

ps: ho aperto una discussione sul forum ma non ho ancora ricevuto risposte e visto che il ragazzo aveva la mia stessa problematica ho pensato che era meglio parlare con chi già ha esposto il quesito... chiedo scusa ai moderatori ... in quanto non so se ho fatto bene...

Grazie ancora...

[oregon]

Angelica è (o dovrebbe essere) una ragazza.

Lei ha usato rsTabella che e' un recordset aperto nel modo consueto tramite una connessione impostata in precedenza.

[alka]

Originariamente inviato da dolce23it
ps: ho aperto una discussione sul forum ma non ho ancora ricevuto risposte e visto che il ragazzo aveva la mia stessa problematica ho pensato che era meglio parlare con chi già ha esposto il quesito... chiedo scusa ai moderatori ... in quanto non so se ho fatto bene...

In generale, devo dire di no in quanto hai già aperto una discussione sull'argomento e sei intervenuta in questa, già conclusa, spostando l'attenzione verso un argomento differente da quello indicato nel titolo e avendo già, appunto, una discussione aperta a riguardo.

Continua quella che hai già inaugurato; se non ricevi risposte, prova ad aggiungere ulteriori dettagli in modo da incentivare la partecipazione (in modo non passivo).

Purtroppo, a volte occorre anche fare i conti con l'eventualità che nessuno possa fornire un'adeguata risposta al proprio quesito.


Ciao!

[dolce23it]

Ho detto ragazzi, e mi riferivo ad entrambi ... chi richiede un aiuto e chi risponde.

per alka... SCUSAMI TANTISSIMO

[oregon]

Originariamente inviato da dolce23it
... del ragazzo ...

... visto che il ragazzo ...

Solo per la precisione ...

In ogni caso, non ho capito se hai risolto in base a quanto ti ho suggerito ...

[dolce23it]

ti spiego meglio quello che devo fare.

Ho una tabella dove ho degli indirizzi.

Devo costruire uno script in vb che preleva tramite select e li inserisce in un modello word nel destinatario.

Ovviamente devo creare n fogli word per n destinatari.

Ho creato il modello word mettendo (l'ho letto mi sembra in questa discussione) un segnalibro dove devo mettere gli indirizzi.

So aprire un foglio word bianco ma non sò fare il resto.

mi potresti aiutare!!!!!

ti prego!!!!!

[wallrider]

Originariamente inviato da Jupy64
Certo che si può, ci sono diversi modi, metti dei segnalibri nel modello word nei punti in cui devi inserire i dati e poi fai una cosa del genere:

Private Sub DocWord(tipoModello as String)
  Dim objDoc As Word.Document
  Set objDoc = New Word.Document
  With objDoc.Application
    If Not .Visible Then
       .Visible = True
    End If
    .Activate
    .Documents.Add (App.Path & "\ModelliDoc\" & tipoModello)

    .Selection.GoTo What:=wdGoToBookmark, Name:="Nome"
    .Selection.TypeText Text:=rsTabella!NOME
            
    .Selection.GoTo What:=wdGoToBookmark, Name:="Cognome"
    .Selection.TypeText Text:=rsTabella!COGNOME
  End With
  Set objDoc = Nothing
End Sub

Se ti dovessero servire altre istruzioni "word", basta che apri un documento word, attivi il registratore di macro, fai le operazioni manuali che vorresti fare in automatico tramite vb e poi ti vai a leggere la macro che ha generato..prendi le istruzioni che ti servono.

mi permetto di correggerti dicendo che ti conviene fare
Set objDoc = createObject("Word.Document")
anziché
Set objDoc = New Word.Document

perchè l'istruzione che hai scritto te tende a lasciare delle istanze di word aperte