Newsgroup: it.comp.appl.notes-domino
Titolo: CREARE DOC WORD VIA LS

Ho già postato su it.comp.lang.visualbasic ma nessuno mi risponde, 
percui chiedo a voi. 
Ho inserito un'operazione che mi crea un documento word partendo dai 
dati di un form. Il documento finale dovrebbe avere una prima parte di 
righe di testo, una tabella di n righe( n a seconda del count della 
collection)   e poi ancora delle righe di testo. Non riesco a trovare 
il comando che al termine della tabella mi lasci inserire il mio 
secondo testo: me lo mette all'inizio del doc. Di seguito vi metto il 
codice che ho usato Il mio problema è dove vedete che ho messo delle 
righe di asterischi 
	Set word = createobject("Word.Application") 
	word.visible=False
 
	word.Documents.Add ("\\server\CARTA INTESTATA.dot")
	row% = 2
	col% = 1
	nrow%=coll.count+1
 
	word.Selection.Typeparagraph
 
	word.Selection.Typeparagraph
	word.Selection.TypeText "roma, il " & Date()
	word.Selection.Typeparagraph
	word.Selection.Typeparagraph
	word.Selection.Typeparagraph
	word.Selection.TypeText "A seguito delle verifiche effettuate dai 
nostri addetti al ricevimento materiali,con la presente, siamo a 
comunicarVi .... " 	word.Selection.Typeparagraph 	word.Selection.
Typeparagraph 	word.Selection.Typeparagraph
	word.ActiveDocument.Tables.Add word.Selection.range,nrow%,4
'	
word.Selection.Font.Name
 = "Arial"
'	word.Selection.Font.Size =10
'	word.Selection.Font.Bold = False
	word.activedocument.tables(1).cell(1,1).select
	word.Selection.TypeText "Codice"
	word.activedocument.tables(1).cell(1,2).select
	word.Selection.TypeText "Descrizione"
	word.activedocument.tables(1).cell(1,3).select
	word.Selection.TypeText "Qtà dichiarata"
	word.activedocument.tables(1).cell(1,4).select
	word.Selection.TypeText "Qtà riscontrata"
 
	While Not colldoc Is Nothing
		word.activedocument.tables(1).cell(row%,1).select
		word.Selection.TypeText colldoc.mc_cdpar1(0)
		word.activedocument.tables(1).cell(row%,2).select
		word.Selection.TypeText colldoc.mc_depar1(0)
		word.activedocument.tables(1).cell(row%,3).select
		word.Selection.TypeText Cstr(colldoc.mc_qta02(0))
		word.activedocument.tables(1).cell(row%,4).select
		word.Selection.TypeText Cstr(colldoc.mc_qta03(0))
		Set colldoc = coll.GetNextDocument( colldoc )
		row% = row% + 1 
	Wend
	word.Selection.TypeParagraph 
************************************************************* 
              Il testo di seguito me lo dovrebbe mettere dopo la 
              tabella invece me lo mette all'inizio del doc. ho provato 
              anche a mettere word.selection.movedown, ma nulla.
              **************************************************** 
	word.Selection.TypeText "Vi preghiamo di prendere visione ...."
***********************************************************	
	word.activedocument.saveas("c:\QI94.doc")
 
	word.activedocument.close
	word.application.quit
mi date una mano voi anche se non è strettamente inerente a LS?
ciao
--
absolute

 
[cut]
Ciao,
non so dirti come mai si comporta in questo modo.
In genere ho risolto la questione inserendo dei bookmark nel .dot e 
andando a posizionarmi in corrispondenza del punto in cui voglio 
scrivere il mio testo.
ad esempio:
If wordDoc.Bookmarks.exists("date") Then
	wordDoc.Bookmarks("date").Select
	wordApp.Selection.TypeText(Date$)			
End If	
Ciao,
maximo

 righe di asterischi
Io utilizzo una cosa di questo tipo per reperirmi la fine del documento.
   Set myRange = WordDoc.Content
   pos=myRange.StoryLength
  Dopo di che posso fare quello che voglio.Per esempio:
  Call WordDoc.Range(pos-1,pos-1).....