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

Rispondi quotando