🚀 go-pugleaf

Grazie della dritta ma ho trovato questa soluzione tra tutte molto
interessante cio� passare a dei campi %%nome%% in word delle variabili dei
form attraverso Vb.
Il problema sorge con il fatto che non conosco gli object e nemmeno
GetObject (e purtroppo non ho neanche una guida di Vb!).
Considerato il fatto che i riferimenti di word sono incompatibili se fatti
con versioni differenti, vorrei che fosse possibile sostituitre i dati
indipendentemente dalla versione di Word, quindi far diventare xWord un
object.
Mi manca la sostituzione dei dati %%nome%% nelle tabelle di word!
Ho provato tutta la sera e niente!
Listato del codice e il seguente:
Dim xWord As Object
    Dim xRange As Range           ' Oggetto Range
    Dim xSelection As Find        ' Oggetto Find
    Dim xTabella As Table         ' Oggetto Tabella
    Dim xCella As Cell            ' Oggetto Cella

    'istanzio una nuovo oggetto Word.Application
    Set xWord = CreateObject("Word.Application")
    If Err.Number <> 0 Then
        'c'� stato qualche errore nell'aprire l'istanza Word
        'Solitamente l'errore �: n.429 Can't create activex component
        MsgBox ("Word non c'�?")
    End If
    'Rendo invisibile l'instanza
    xWord.Visible = False

    'Se fosse visibile, potrei massimizzare la finestra con
    'la seguente riga di codice

    'xWord.WindowState = wdWindowStateMaximize

    'aggiungo un documento (in questo caso un modello)
    xWord.Documents.Add App.Path & "\Parcella.doc"
    'imposto i vari dati (qui naturalmente sostituirai i dati con quelli
    'presi da un DB. I campi contrassegnati con %%<nome campo>%% sono
corrispondenti
    'a quelli inseriti nel documento (o modello) word.
    Set xRange = xWord.ActiveDocument.Range
        xRange.Find.Execute "%%nome%%", , , , , , , , , Stampa.Nome, True

    Set xRange = xWord.ActiveDocument.Range
        xRange.Find.Execute "%%cognome%%", , , , , , , , , Stampa.Indirizzo,
True

    Set xRange = xWord.ActiveDocument.Range
        xRange.Find.Execute "%%Albo%%", , , , , , , , , Stampa.Albo, True

    Set xRange = xWord.ActiveDocument.Range
        xRange.Find.Execute "%%int%%", , , , , , , , , Form1.int, True

    Set xRange = xWord.ActiveDocument.Range
        xRange.Find.Execute "%%Signor%%", , , , , , , , , Form1.Signor, True

    Set xRange = xWord.ActiveDocument.Range
        xRange.Find.Execute "%%recapito%%", , , , , , , , , Form1.Indirizzo,
True

    Set xRange = xWord.ActiveDocument.Range
        xRange.Find.Execute "%%citta%%", , , , , , , , , Form1.citt�, True

"KillerBoy" <@nospam@@pippo.it> ha scritto nel messaggio
news:358jb.36973$vO5.1379953@twister1.libero.it...
> "stgfv" <stgfv@NOSPAM-tiscali.it> ha scritto nel messaggio
> news:o4%ib.216840$hE5.7311795@news1.tin.it...
> > Forse sono stato poco chiaro,
> > ho implementato attraverso il codice :
> [CUT]
>
> Ora credo di aver capito.
>
> > Dim WrdApp As Word.Application 'Se Word sul Pc non c'� mi manda in crash
> > l'applicazione!!!!!!!!!!
>
> ti manda in crash l'applicazione perch� non la definisci come "new" quindi
> cerca word gi� istanziato
> potresti definire wrdapp come object (conseguentemente anche wrddoc e
campo)
> e poi usare la GetObject, con i parametri appropriati, in modo tale che se
> non c'� word viene istanzianziato (ed oltretutto se non lo metti tra i
> riferimenti il codice diventa conpatibile con le varie versioni di word)
>
> > 'Vorrei ora proteggere il file aperto con una password!!
> > 'Come farlo?
>
> la password, se non ricordo male puoi impostarla al momento del
salvataggio
> del documento, tra i vari parametri gli puoi anche dare le password per
> accedere al file
>