gravação de imagem bmp em word

[Armando]

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

[Marcos Guedes]

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

Qual a extensão?
.doc ou .docx

???

[Armando]

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.

[Marcos Guedes]

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.

[Armando]

Ok Marcos, grato pela atenção.

[Armando]

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

[Marcos Guedes]

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.

[Armando]

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,

[Marcos Guedes]

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.

[Armando]

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

[Marcos Guedes]

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]

Armando, você conseguiu adaptar o código?

[Armando]

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]

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]

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