Ok allora devo arrendermi a word per ora (più avanti magari cambierò il modulo e scriverò il mio RTF ma ora non ho tempo).
Solo una cosa: Mi dite come fare a renderlo "universale" con tutte le versioni?
Io ho aggiunto il riferimento alla libreria word 12 (che credo sia 2007) e anche se ho il 2003 mi funziona ugualmente!
questo è il codice (l'ho molto snellito togliendo varie connessioni, var ecc così vedete l'interazione con word:
codice:
'creo i file word
Dim oWord As Word.Application = CreateObject("Word.Application")
Dim oDoc As Word.Document[/B][/COLOR]
Dim nomeModelloWord As String = "assPartTime.doc"
Try
'Copio il modello nella directory scelta
IO.File.Copy(appPath & "\formulario\" & nomeModelloWord, urlFile, True)
'apro word
oWord.Visible = True
oDoc = oWord.Documents.Open(urlFile)
oWord.Activate()
For Each segnalibro As Word.Bookmark In oDoc.Bookmarks
Dim nomeCampoDB As String = Strings.Left(segnalibro.Name, segnalibro.Name.Length - 3)
Dim testo As String = rigaQry(nomeCampoDB).ToString
segnalibro.Range.InsertAfter(testo)
Next
oDoc.Save()
oDoc.Close()
'Chiusura Applicazione Word
oWord.Quit()
MsgBox("Lettera d'assunzione creata!", MsgBoxStyle.Information, "Creazione Lettera Assunzione")
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Errore in " & ex.Source)
oDoc.Close()
'Chiusura Applicazione Word
oWord.Quit()
'elimino il file se esiste
If IO.File.Exists(urlFile) = True Then
IO.File.Delete(urlFile)
End If
End Try