VB6 e word, inserimenti da ciclo

[Atroban]

Ciao a tutti,
allora, ho cercato un po' da tutte le parti... ma niente da fare!

Allora ho un file word .dot pieno di campi di testo, vorrei riempirlo tramite un file in vb6.

Per ora sono a questo punto:

'creo l'istanza che im serve di word
Dim MsWord As Word.Application
Set MsWord = New Word.Application

MsWord.Documents.Open App.Path & ("\Moduli\Lavorazioni_esterne.dot")

'MsWord.ActiveDocument.Variables("NumPezzi").Value = 10

With MsWord.ActiveDocument

.Bookmarks("datanumddt").Range.InsertAfter Me.txtNumBolla.Text

' etc

Come posso creare un ciclo che riempia i campi in sequenza e non richiamandoli uno ad uno?

grazie mille!

[raffaeu]

Se i campi avessero come nome un numero ...

[Atroban]

Mmm... :rollo:

ok devo rinominarli comunque tutti e in caso di errore o cancellazione di un capo devo rinominarli nuovamente...

Non ci credo che non esista un metodo per passare al bookmarks successivo!!!

[MetalPiskuan]

Non ci credo che non esista un metodo per passare al bookmarks successivo!!!

Effettivamente hai ragione il metodo esiste: l'oggetto bookmarks è in realtà una collezione di oggetti bookmark e quindi è possibile referenziare ogni elemento sia utilizzando il suo nome (come hai fatto tu) ma anche utilizzando il suo indice.

La propietà Count restituisce il numero di elementi presenti nella collezione, ricorda che gli elementi vengono inseriti partendo dall'indice zero (0)

Quindi:

With MsWord.ActiveDocument
.Bookmarks("datanumddt").Range.InsertAfter Me.txtNumBolla.Text
...
End With

Si puo anche scrivere:
With MsWord.ActiveDocument
for ik = 0 to .Bookmarks.Count
.Bookmarks(ik).Range.InsertAfter valoredainserire
next ik
End With

Spero di esserti stato utile
Ciao.

[Atroban]

Grazie mille MetalPiskuan!

proprio quello che mi serviva! immaginavo ci fosse un metodo simile per richiamare i singoli bookmarks... peccato che il file .dot debba contenere solo bookmarks con un nome (e con 509 campi...) per essere visibili da vb6! si risolve un problema per crearne un altro

grazie ancora!