Aprire un documento di Word da VB

[sara81it]

Ciao a tutti

le fasi sono:

1) scrivo il file da VB

2) vorrei aprire word in anteprima di stampa. Ma come?

codice:

nomefile = App.Path & "\RisultatoFattAccompVend.doc"

  With WordXChangeCtrl1
    .OpenDocument App.Path & "\FattAccompVend.doc"
    .ReplaceField "CampoFornitore", cmbragso.Text
    .ReplaceField "Via", txtind.Text
    .ReplaceField "Cap", txtcap.Text
    .ReplaceField "Citta", txtcitta.Text
    .ReplaceField "PIVA", txtpiva.Text

    .SaveDocumentAs nomefile
    .CloseDocument
    End With

Aiuto!!

Sara

[mcathor]

Mi fai capire meglio ciò che vuoi fare?
Perchè stai usando un ocx?
In Vb puoi tranquillamente usare i file di word semplicemente inserendo la reference "Microsoft Word 9.0 Object Library".

[sara81it]

Scusami,
mi spiego un pò meglio.

Ho creato un file .doc con dei segna libri.

devo portare dei capi di Vb su questo documento. come faccio?

[mcathor]

Il codice qui sotto permette di reimpostare il valore delle celle di una tabella word. Ricorda che devi inserire la reference microsoft word 9.0 object library nel progetto.
Questo è un esempio, puoi comunque controllare tutti gli oggetti di word tramite l'oggettow, che non è altro che una collection di oggetti word.
Se hai bisogno di altre delucidazioni sono a tua disposizione.

Dim oggettow As Word.Application

'creazione oggettoword
Set oggettow = New Word.Application

'apertura file
oggettow.Documents.Open FileName:=Tuonomefile,

'seleziona cella di tabella per modifica testo
oggettow.ActiveDocument.Tables(1).Cell(1, 1).Select
oggettow.Selection.SelectColumn

'per ogni cella cambia il contenuto
For Each oggetto In oggettow.Selection.Cells
oggetto.Range.Text = TuaVariabile
Next

'Salva nuovo documento
oggettow.ActiveDocument.SaveAs FileName:=strDocDestination, _

'chiude tutti i documenti aperti senza salvare le modifiche
For Each oggetto In oggettow.Documents
oggetto.Close wdDoNotSaveChanges
Next

oggettow.Application.Quit
Set oggettow = Nothing
CreaWordDocument = 0