Gerar a carta com docto Ms Word modelo

[alceu11]

[Você precisa estar registrado e conectado para ver este link.] src="[Você precisa estar registrado e conectado para ver este link.] width="425" height="350" type="application/x-shockwave-flash" wmode="transparent" quality="high" scale="exactfit">

topico do mauro.
Victoria.!!! la vc tera o fonte de um documento modelo
[Você precisa estar registrado e conectado para ver este link.]

[Marcos Guedes]

Reputado!

[alceu11]

link do fonte
[Você precisa estar registrado e conectado para ver este link.]
neste codigo gerar mais de um documento ,,,de um docto modelo MsWord

Com isto e possivel fazer contratos diversos, comunicacoes, advertencias, e a ondi sua imaginacao chegar.....!!!

Exemplo de mais um documento.

Codigo fonte aqui gero dois documentos doc1, e doc2
o modelo segue no zip acima acinalado colegio zip

Código:



***********Atencao como os paths a ondi estao o meu arquivo colegio.doc.**********
CLOSE DATABASES ALL
SET DELETED ON
CREATE CURSOR CTST (campo C(10), Sobrepor C(100) ,arquivo c(14), FOI C(1))
SELECT CTST
INSERT INTO CTST (campo,sobrepor,arquivo) VALUES ('<nome>', 'Alceu nao Pediu Nada, ke mentira!!! ','doc1.doc')
INSERT INTO CTST (campo,sobrepor,arquivo) VALUES ('<endereco>', 'R.Macae,45 Vl.Soares','doc1.doc')
INSERT INTO CTST (campo,sobrepor,arquivo) VALUES ('<cidade>', 'Poto Ferreira-SP','doc1.doc')
INSERT INTO CTST (campo,sobrepor,arquivo) VALUES ('<ling>', 'Conclusao 2º Ciclo V.FoxPro','doc1.doc' )
INSERT INTO CTST (campo,sobrepor,arquivo) VALUES ('<nome>', 'Mauro toda hora tenho ke te pedir o exemplo','doc2.doc')
INSERT INTO CTST (campo,sobrepor,arquivo) VALUES ('<endereco>', 'Av.Inajar,5645 Vl.Santos','doc2.doc')
INSERT INTO CTST (campo,sobrepor,arquivo) VALUES ('<cidade>', 'Poto Ferreira-SP','doc2.doc')
INSERT INTO CTST (campo,sobrepor,arquivo) VALUES ('<ling>', 'Conclusao 2º Ciclo V.FoxPro','doc2.doc')
*browse


SELECT CTST
 DO WHILE !EOF()
SET DEFAULT TO SYS(5)+SYS(2003)

 
oaplword = createobject("Word.Application")
oaplword.documents.add("\PEDRO\aworld\COLEGIO.DOc")
 
oSele = oaplword.ActiveDocument.ActiveWindow.ActivePane.Selection
 
 
IF NOT EOF()
 SCAN ALL
oSele.HomeKey(6) && TOPO DO DOCUMENTO
oSele.Find.Text = ALLTRIM( CTST.campo )
oSele.Find.Forward = .T.
oSele.Find.MatchWholeWord = .T.
oSele.Find.Execute()
*oSele.TypeText( ALLTRIM( CTST.sobrepor ) )
If oSele.Find.Found
oSele.TypeText( Iif( Empty(CTST.sobrepor), ' ', ALLTRIM(CTST.sobrepor) ) )
REPLACE CTST.FOI WITH 'S'
warq=ALLTRIM(ctst.arquivo)
DELETE IN ctst
Endif

ENDSCAN
ELSE
  WAIT WINDOW 'vc nao tem registros para este relatorio' TIMEOUT 2
ENDIF


 
Wait Windows "Salvando Documento "+warq NOWAIT noclear

oaplword.ActiveDocument.SaveAs( "\pedro\aworld\"+warq ) &&... salvo o documento como .DOC mantendo o template intacto (.DOT)

&&.. fica no laço enquanto o documento esta sendo salvo
Do While oaplword.ActiveDocument.saved=.F.
Enddo
Wait Windows "Fechando Documento o arquivo doc foi gerado "+warq  NOWAIT noclear
**************************************************
*se quizer imprimir o documento é so tirar o comentario
*      oWord.ActiveDocument.PrintOut()
*      oWord.DisplayAlerts = .F.
*      =Inkey(2)
************************
oaplword.quit
WAIT clear
SELECT ctst
GO top

IF EOF()
 EXIT
 endif
ENDDO

SELECT ctst
USE IN ctst