Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
9 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 8 Visitantes :: 2 Motores de busca

diegopeixoto

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Tudo dá errado

3/2/2017, 16:50 por Douglas Pascini

Troquei de maquina, achei que seria uma boa, [Você precisa estar registrado e conectado para ver esta imagem.]  pois passei para uma maquina melhor.

Instalei o …

Comentários: 1

URGENTE - Instalação do aplicativo

24/1/2017, 08:51 por Douglas Pascini

Bom dia. Estou com um problema, ao fazer a instalação (colocar os arquivo) do aplicativo na …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 3

Estatísticas
Temos 7021 usuários registrados
O último usuário registrado atende pelo nome de diegopeixoto

Os nossos membros postaram um total de 21 mensagens em 12 assuntos

gravação de imagem bmp em word

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

Resolvido gravação de imagem bmp em word

Mensagem por Armando em 19/4/2010, 18:46

Olá pessoal,
Desenvolvi uma aplicação que busca dados do bd, abre o word e grava determinados dados das tabelas no word.
Agora preciso gravar uma assinatura, mas não esta dando certo, pois quando indico o caminho do bmp ele me trás o caminho e não a assinatura.
Como 'jogar' esta assinatura no documento (notem que não é form e sim gravação no word).

abs a todos,

Armando

Armando
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: gravação de imagem bmp em word

Mensagem por Marcos Guedes em 19/4/2010, 21:25

Você pretende adicionar uma imagem no documento, a partir de um caminho especificado, correto?!

Qual a extensão?
.doc ou .docx

???


Última edição por Marcos Guedes em 26/4/2010, 23:26, editado 1 vez(es)

_________________
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

Resolvido Re: gravação de imagem bmp em word

Mensagem por Armando em 20/4/2010, 08:54

Correto Marcos, hoje já transfiro dados de tabelas para o word, mas a imagem não estou conseguindo.
Quanto a extensão tenho alguns em doc e outros em docx, mas isto não será problema, pois se for preciso transformo todos os documentos para uma destas extensões( doc ou docx).

abs e grato pelo contato.

Armando
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: gravação de imagem bmp em word

Mensagem por Marcos Guedes em 20/4/2010, 17:14

Tenho esta rotina que desenvolvi para manipulação de arquivos do word, porém não inclui recursos para adicionar imagens no documento:
[Você precisa estar registrado e conectado para ver este link.]

Tentarei adaptá-la, e em breve posto algo a respeito.

_________________
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

Resolvido Re: gravação de imagem bmp em word

Mensagem por Armando em 20/4/2010, 17:49

Ok Marcos, grato pela atenção.

Armando
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: gravação de imagem bmp em word

Mensagem por Armando em 24/4/2010, 17:01

Boa tarde Marcos, vc conseguiu adaptar sua rotina ?

Te envio minha rotina que grava os dados no word, sendo que a última linha refere-se ao comando para gravação da imagem BMP.
Só para te lembrar, com este comando tras apenas o caminho, ou seja,
C:\imtech\IMAGEM.BMP.
Veja se assim fica mais fácil de entender.

Grato,

Código:
Vlo_Word = CREATEOBJECT("Word.Application")
Vlo_Word.Documents.Open("C:\imtech\"+ALLTRIM(tabela1.item))
Vlo_Word.visible = .t.
Vlo_Word.ActiveDocument.Tables(1).Cell(1,2).Range.Text = tabela2.nome
Vlo_Word.ActiveDocument.Tables(1).Cell(2,2).Range.Text = ALLTRIM(tabela2.Endereco)+" - "+ALLTRIM(tabela2.Bairro)+" "+ALLTRIM(tabela2.cep)+"  "+ALLTRIM(tabela2.cidade)+" - "+ALLTRIM(tabela.uf)
Vlo_Word.ActiveDocument.Tables(1).Cell(3,2).Range.Text = tabela1.numero_ana
Vlo_Word.ActiveDocument.Tables(1).Cell(4,2).Range.Text = IIF(SEEKINTAG("PE"+tabela1.NUMERO_ANA,"tabela3","NUMERO"),DTOC(tabela3.EMISSAO),{})
**!** O comando abaixo tem o objetivo de capturar uma assinatura em BMP, no caminho especificado, e gravar no word tal assinatura.
Vlo_Word.ActiveDocument.Tables(2).Cell(1,1).Range.Text = "C:\imtech\"+IMAGEM.BMP

Armando
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: gravação de imagem bmp em word

Mensagem por Marcos Guedes em 26/4/2010, 23:58

Armando, estou tentando adaptar minha rotina, mas ainda não está como eu gostaria que estivesse.

Encontrei o seguinte código:
Código:
PUBLIC ow AS WORD.APPLICATION, ;
   lcbmp AS STRING, livfpwinstate AS INTEGER

*-- Store WindowState of _SCREEN and minimize
livfpwinstate = _SCREEN.WINDOWSTATE
_SCREEN.WINDOWSTATE= 1
ow = CREATEOBJECT( 'Word.Application' )

*-- Alter the path to the bitmap file as needed.
lcbmp = _samples + '\TASTRADE\BITMAPS\BEVERAGE.BMP'
WITH ow AS WORD.APPLICATION
   .WINDOWSTATE= 1 && wdWindowStateMaximize
   .VISIBLE = 1
   .documents.ADD
   .APPLICATION.ACTIVATE
   WITH .activedocument.pagesetup AS WORD.pagesetup
      .topmargin = 12.25
      .bottommargin = 12.25
      .leftmargin = 12.25
      .rightmargin = 12.25
   ENDWITH
   .SELECTION.inlineshapes.addpicture( lcbmp, .F., .T. )
   .SELECTION.endkey( 6 )
   .SELECTION.moveleft( 1, 1, 1 )
   .SELECTION.inlineshapes( 1 ).WIDTH = 190
   .SELECTION.inlineshapes( 1 ).HEIGHT = 210
   .SELECTION.endkey( 6 )
   .SELECTION.homekey( 6 ) && Go to top of doc
   =INKEY( 5 ) && Wait five seconds.
   .QUIT( 0 ) && Quit w/o saving. Pass -1 to save.
ENDWITH

*-- Restore _SCREEN
_SCREEN.WINDOWSTATE = livfpwinstate
*
*-------- End Code
Fonte: support.microsoft.com/kb/949237

Veja se lhe ajuda.


Se tiver problemas em adaptar o código, é só avisar.


Última edição por Marcos Guedes em 26/6/2010, 09:37, editado 1 vez(es)

_________________
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

Resolvido Re: gravação de imagem bmp em word

Mensagem por Armando em 28/4/2010, 09:24

Bom dia Marcos, inclui o código que me mandou, porém a msg de erro abaixo é exibida, vc tem idéia do que possa ser?

"OLE IDispatch exception code 0 from Microsoft Word: O nome do documento não é válido.
Tente uma ou mais das seguintes opções:
* Verifique o caminho para certificar-se de que foi digitado corretamente.
* Selecione um arquivo da lista de arquivos e pastas..."

Se excluo o codigo que me mandou, roda normal, mas ainda sem trazer o BMP.

abraços,

Armando
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: gravação de imagem bmp em word

Mensagem por Marcos Guedes em 28/4/2010, 09:29

Poderias postar o código com as alterações feitas?
O caminho do arquivo de imagem é _samples + '\TASTRADE\BITMAPS\BEVERAGE.BMP' ???

Se for, altere para o caminho completo de seu arquivo de imagem.

_________________
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

Resolvido Re: gravação de imagem bmp em word

Mensagem por Armando em 28/4/2010, 10:31

Marcos, substitui o caminho \TASTRADE... pelo caminho onde encontra-se meu BMP. Segue rotina, que esta no Valid do botão que carrega informações para o doc do Word.

Código:
Vlo_Word = CREATEOBJECT("Word.Application")
Vlo_Word.Documents.Open("C:\"+ALLTRIM(ex_lote.item))
Vlo_Word.visible = .t.
Vlo_Word.ActiveDocument.Tables(1).Cell(1,2).Range.Text = Cadastro.nome
Vlo_Word.ActiveDocument.Tables(1).Cell(2,2).Range.Text = ALLTRIM(Cadastro.Endereco)+" - "+ALLTRIM(Cadastro.Bairro)+" "+ALLTRIM(Cadastro.cep)+"  "+ALLTRIM(Cadastro.cidade)+" - "+ALLTRIM(Cadastro.uf)
Vlo_Word.ActiveDocument.Tables(1).Cell(3,2).Range.Text = EX_LOTE.NUMERO_ANA
Vlo_Word.ActiveDocument.Tables(1).Cell(4,2).Range.Text = IIF(SEEKINTAG("PE"+EX_LOTE.NUMERO_ANA,"tab1","NUMERO"),DTOC(tab1.EMISSAO),{})
Vlo_Word.ActiveDocument.Tables(1).Cell(5,2).Range.Text = IIF(SEEKINTAG("PE"+EX_LOTE.NUMERO_ANA+EX_LOTE.ITEM,"tab2","LAUDO"),DTOC(tab2.INI_ENSAIO),{})
Vlo_Word.ActiveDocument.Tables(1).Cell(6,2).Range.Text = IIF(SEEKINTAG("PE"+EX_LOTE.NUMERO_ANA+EX_LOTE.ITEM,"Tab2","LAUDO"),DTOC(tab2.TER_ENSAIO),{})
*Vlo_Word.ActiveDocument.Tables(1).Cell(7,2).Range.Text = {}
Vlo_Word.ActiveDocument.Tables(1).Cell(8,2).Range.Text = UPPER(tab1.NOM_COME)
Vlo_Word.ActiveDocument.Tables(1).Cell(9,2).Range.Text = LOWER(tab1.COMP_QUI2)
Vlo_Word.ActiveDocument.Tables(1).Cell(10,2).Range.Text= ALLTRIM(STR(tab1.QT_REC,10,2))
*Vlo_Word.ActiveDocument.Tables(2).Cell(1,1).Range.text= '\image\lilian.bmp'

PUBLIC ow AS WORD.APPLICATION, ;
  lcbmp AS STRING, livfpwinstate AS INTEGER

*-- Store WindowState of _SCREEN and minimize
livfpwinstate = _SCREEN.WINDOWSTATE
_SCREEN.WINDOWSTATE= 1
ow = CREATEOBJECT( 'Word.Application' )

*-- Alter the path to the bitmap file as needed.
lcbmp = _samples + '\imagem\LILIAN.BMP'
WITH ow AS WORD.APPLICATION
  .WINDOWSTATE= 1 && wdWindowStateMaximize
  .VISIBLE = 1
  .documents.ADD
  .APPLICATION.ACTIVATE
  WITH .activedocument.pagesetup AS WORD.pagesetup
      .topmargin = 12.25
      .bottommargin = 12.25
      .leftmargin = 12.25
      .rightmargin = 12.25
  ENDWITH
  .SELECTION.inlineshapes.addpicture( lcbmp, .F., .T. )
  .SELECTION.endkey( 6 )
  .SELECTION.moveleft( 1, 1, 1 )
  .SELECTION.inlineshapes( 1 ).WIDTH = 190
  .SELECTION.inlineshapes( 1 ).HEIGHT = 210
  .SELECTION.endkey( 6 )
  .SELECTION.homekey( 6 ) && Go to top of doc
  =INKEY( 5 ) && Wait five seconds.
  .QUIT( 0 ) && Quit w/o saving. Pass -1 to save.
ENDWITH

**-- Restore _SCREEN
_SCREEN.WINDOWSTATE = livfpwinstate

Armando
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: gravação de imagem bmp em word

Mensagem por Marcos Guedes em 28/4/2010, 11:20

Armando, estude o código que postei, isoladamente, e tente compreendê-lo.

Dá forma como você fez, estais criando dois documentos.


Se tiver problemas é só comunicar.

_________________
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

Resolvido Re: gravação de imagem bmp em word

Mensagem por Marcos Guedes em 3/5/2010, 12:06

Armando, você conseguiu adaptar o código?

_________________
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

Resolvido Re: gravação de imagem bmp em word

Mensagem por Armando em 3/5/2010, 16:47

Olá Marcos, isolei o código que me postou, porém não consigo fazê-lo rodar.
De início pensei que fosse pelo fato do documento estar em docx; gravei tb em word 2003, mas o erro continua.
Se comento seu codigo e volto a ativar o meu, roda sem erro mas tb sem carregar o BMP.

msg de erro:
"OLE IDispatch exception code 0 from Microsoft Word: O membro solicitado da coleção não existe..."

Armando
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: gravação de imagem bmp em word

Mensagem por Armando em 10/5/2010, 09:58

Bom dia Marcos, prob. resolvido. Seu código funcionou, o prob. estava no tamanho do bmp. Agora estou fazendo uns últimos ajustes para incluir seu código no meu.

Grato pela ajuda.

Armando
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: gravação de imagem bmp em word

Mensagem por Armando em 12/5/2010, 12:03

Marcos,veja se pode me dar um help!
Consegui gravar uma assinatura(.bmp) no word com a sua rotina, porém não estou conseguindo coloca-la na posição correta.
No word tenho uma planilha inserida com onze linhas e duas colunas; gravo informações da base de dados nesta planilha (na coluna 2).

A imagem é gravada sempre na linha 1 coluna 1 da primeira tabela e eu quero gravar esta assinatura numa segunda tabela, linha 1, coluna 1.

Segue codigo para análise:

Código:
PUBLIC ow AS WORD.APPLICATION, lcbmp AS STRING, livfpwinstate AS INTEGER
*-- Store WindowState of _SCREEN and minimize
livfpwinstate = _SCREEN.WINDOWSTATE
_SCREEN.WINDOWSTATE= 1
ow = CREATEOBJECT( 'Word.Application' )

*-- Alter the path to the bitmap file as needed.
lcbmp =  '\SISTEMA\lilian rubrica.BMP'
WITH ow AS WORD.APPLICATION
  .WINDOWSTATE= 1 && wdWindowStateMaximize
  .VISIBLE = 1
*  .documents.ADD
  .APPLICATION.ACTIVATE
     .Documents.Open("C:\SISTEMA\"+ALLTRIM(ex_lote.item))
     .visible = .t.
   .ActiveDocument.Tables(1).Cell(1,2).Range.Text = Cadastro.nome
   .ActiveDocument.Tables(1).Cell(2,2).Range.Text = ALLTRIM(Cadastro.Endereco)+" - "+ALLTRIM(Cadastro.Bairro)+" "+ALLTRIM(Cadastro.cep)+"  "+ALLTRIM(Cadastro.cidade)+" - "+ALLTRIM(Cadastro.uf)
   .ActiveDocument.Tables(1).Cell(3,2).Range.Text = EX_LOTE.NUMERO_ANA
   .ActiveDocument.Tables(1).Cell(4,2).Range.Text = IIF(SEEKINTAG("PE"+EX_LOTE.NUMERO_ANA,"PEDIDO","NUMERO"),DTOC(PEDIDO.EMISSAO),{})
   .ActiveDocument.Tables(1).Cell(5,2).Range.Text = IIF(SEEKINTAG("PE"+EX_LOTE.NUMERO_ANA+EX_LOTE.ITEM,"IPEDIDO","LAUDO"),DTOC(IPEDIDO.INI_ENSAIO),{})
   .ActiveDocument.Tables(1).Cell(6,2).Range.Text = IIF(SEEKINTAG("PE"+EX_LOTE.NUMERO_ANA+EX_LOTE.ITEM,"IPEDIDO","LAUDO"),DTOC(IPEDIDO.TER_ENSAIO),{})
   .ActiveDocument.Tables(1).Cell(8,2).Range.Text = UPPER(PEDIDO.NOM_COME)
   .ActiveDocument.Tables(1).Cell(9,2).Range.Text = LOWER(PEDIDO.COMP_QUI2)
   .ActiveDocument.Tables(1).Cell(10,2).Range.Text= ALLTRIM(STR(PEDIDO.QT_REC,10,2))
   .ActiveDocument.Tables(1).Cell(11,2).Range.Text= PEDIDO.LOTE2
    .SELECTION.inlineshapes.addpicture( lcbmp, .F., .T. )
ENDWITH

**-- Restore _SCREEN
_SCREEN.WINDOWSTATE = livfpwinstate

Armando
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: gravação de imagem bmp em word

Mensagem por Marcos Guedes em 12/5/2010, 12:15

Tentou utilizar o seguinte modelo:
Código:
.ActiveDocument.Tables(2).Cell(1,1).Range.Text
???

_________________
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

Resolvido Re: gravação de imagem bmp em word

Mensagem por Armando em 12/5/2010, 14:43

Tentei, mas neste caso ele só leva o caminho do bmp.

Armando
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: gravação de imagem bmp em word

Mensagem por Marcos Guedes em 12/5/2010, 14:49

Você poderia disponibilizar o modelo do documento?
Utilize a opção Upload no Menu Principal (Visível apenas quando conectado.)

_________________
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

Resolvido Re: gravação de imagem bmp em word

Mensagem por Armando em 12/5/2010, 15:33

Ok Marcos foi enviado.

grato,
Armando

Armando
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: gravação de imagem bmp em word

Mensagem por Marcos Guedes em 12/5/2010, 15:45

[Você precisa estar registrado e conectado para ver este link.] escreveu:Ok Marcos foi enviado.

grato,
Armando
Você esqueceu o principal:
Postar o link na mensagem.
Smile

Veja este tópico:
[Você precisa estar registrado e conectado para ver este link.]

_________________
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

Resolvido Re: gravação de imagem bmp em word

Mensagem por Armando em 12/5/2010, 15:55

- Clique aqui para baixar o arquivo!

Armando
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: gravação de imagem bmp em word

Mensagem por Armando em 2/6/2010, 15:59

Boa tarde Marcos, postei o modelo do documento prá vc há uns 10 dias.
Vc recebeu?

Armando
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: gravação de imagem bmp em word

Mensagem por Marcos Guedes em 2/6/2010, 21:07

Olá, Armando!
Peço imensas desculpas pois realmente havia esquecido de trabalhar neste problema.

Estou enrolado com alguns projetos pois um está em VFP, outro em C#, outro em PHP, etc... pale

Mas farei o máximo possível para lhe dar a resposta nesta quinta-feira (03/06/2010)


_________________
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

Resolvido Re: gravação de imagem bmp em word

Mensagem por Armando em 14/6/2010, 18:03

Boa tarde Marcos,
Vc sabe se consigo tratar a imagem bmp para inserir dentro de planilha no word, estou usando o comando abaixo, mas a imagem é gravada na primeirra linha da pagina do word.

Código:
  .SELECTION.inlineshapes.addpicture( lcbmp3, .F., .T. )

grato,
Armando

Armando
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: gravação de imagem bmp em word

Mensagem por Armando em 15/6/2010, 12:23

Boa tarde Marcos,
Consegui resolver o problema de posicionamento da imagem no word, segue codigo. De repente alguém pode precisar.

Grato,
Armando

Código:
.ActiveDocument.Tables(4).Cell(1,1).Select
.SELECTION.inlineshapes.addpicture( lcbmp3, .F., .T. )
.SELECTION.endkey( 6 )
.SELECTION.moveLeft( 1, 1, 1 )

Armando
Começando a Participar
Começando a Participar


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