Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
13 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 13 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
» Ajuda a direcionar
8/12/2016, 01:17 por miiiih

» Alterar uma palavra num arquivo de texto
5/12/2016, 12:02 por Teseu

» Buscar endereço por CEP
3/12/2016, 19:59 por pedrossian

» USAR WEBSERVICE NO VFP9
2/12/2016, 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

Alterar uma palavra num arquivo de texto

5/12/2016, 12:02 por Teseu

Olá prezados colegas de programação!

Este é eu primeiro post no fórum e gostaria de poder …

Comentários: 0

Buscar endereço por CEP

3/12/2016, 19:59 por pedrossian

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me …

Comentários: 0

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 0

Estatísticas
Temos 6964 usuários registrados
O último usuário registrado atende pelo nome de Ricardo Cassolatto

Os nossos membros postaram um total de 17119 mensagens em 2577 assuntos

Gerar a carta com docto Ms Word modelo

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Vídeo Gerar a carta com docto Ms Word modelo

Mensagem por alceu11 em 17/2/2011, 08:13

[Você precisa estar registrado e conectado para ver este link.]

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

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Vídeo Re: Gerar a carta com docto Ms Word modelo

Mensagem por Marcos Guedes em 17/2/2011, 08:55

Reputado!

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Vídeo Carta modelo gerando 2 doctos de um original

Mensagem por alceu11 em 17/2/2011, 09:06

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

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Vídeo Re: Gerar a carta com docto Ms Word modelo

Mensagem por Conteúdo patrocinado Hoje à(s) 17:24


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum