sto finendo un db che permette l'esportazione dei record di access a Word.
Non sapendo nulla di vb ho trovato queste righe di codice, testate e funzionanti che creano in word 5 tabelle:
Codice PHP:
For i = 0 To 5
Const END_OF_STORY = 6
Set objSelection = Wrd.Selection
objSelection.TypeText " "
Set objRange = objSelection.Range
objSelection.Tables.Add objRange, 1, 2
Set objTable = objSelection.Tables(1)
objTable.Cell(1, 1).Range.Text = "cella 1"
objTable.Cell(1, 2).Range.Text = "cella 2"
objSelection.EndKey END_OF_STORY
Next
vorrei ora ottimizzarlo riuscendo a modificare le celle anche in seguito, ovvero fuori dal ciclo for sopra scritto.
Mi spiego: vorrei che l'oggetto objSelection stia "dentro a un array".
Con questa intenzione ho riscritto il codice in questo modo:
Codice PHP:
Set objSelection() = Wrd.Selection
For i = 0 To 5
Const END_OF_STORY = 6
objSelection(i).TypeText " "
Set objRange = objSelection(i).Range
objSelection.Tables.Add objRange, 1, 2
Set objTable = objSelection(i).Tables(1)
objTable.Cell(1, 1).Range.Text = "cella 1"
objTable.Cell(1, 2).Range.Text = "cella 2"
objSelection(i).EndKey END_OF_STORY
Next
Con questa modifica penso di creare un array di oggetti objSelection in modo che a ogni iterazione del for ogni variabile objSelection usi un determinato oggetto del vettore... mi spiego?
Ci sarebbe anche da "vettorializzare" objRange e objTable ma mi son fermato perchè il codice così modificato non è compilabile... c'è un errore...
Potete aiutarmi? grazie in anticipo!