Página 1 de 1
OLE Word
Enviado: 27 Set 2007 16:12
por kachenco
Olá PessoALL,
Alguém sabe os comandos para eu poder inserir uma imagem bitmap no header de um arquivo do word jah pronto ?
Enviado: 28 Set 2007 17:19
por Itamar M. Lins Jr.
Sabia que tinha isso testado aqui em algum lugar...
Espero que ajude.
Saudações
Itamar M. Lins Jr.
********************
Function TesteTabela
********************
LOCAL oWord, oDoc, oTable
oWord = CREATEOBJECT( "Word.Application" )
oDoc = oWord:Documents:Add()
oTable = oDoc:Tables:Add( oWord:Selection:Range, 3, 5 )
oTable:Cell( 1, 1 ):Range:InsertAfter( "Prima" )
oTable:Cell( 1, 2 ):Range:InlineShapes:AddPicture("c:\fontes\sci_win\imagens\novo.bmp" )
oTable:Cell( 3, 5 ):Range:InsertAfter( "Ultima" )
oWord:Visible = .T.
oWord:WindowState = 1
Enviado: 30 Set 2007 01:36
por sygecom
Itamar, não consegui fazer funcionar seu exemplo.....vc poderia passar um exemplo completo.....
Tanks...
Enviado: 02 Out 2007 12:51
por kachenco
Não achei onde vc inseri o bmp no header !?!?!?
Itamar M. Lins Jr. escreveu:Sabia que tinha isso testado aqui em algum lugar...
Espero que ajude.
Saudações
Itamar M. Lins Jr.
********************
Function TesteTabela
********************
LOCAL oWord, oDoc, oTable
oWord = CREATEOBJECT( "Word.Application" )
oDoc = oWord:Documents:Add()
oTable = oDoc:Tables:Add( oWord:Selection:Range, 3, 5 )
oTable:Cell( 1, 1 ):Range:InsertAfter( "Prima" )
oTable:Cell( 1, 2 ):Range:InlineShapes:AddPicture("c:\fontes\sci_win\imagens\novo.bmp" )
oTable:Cell( 3, 5 ):Range:InsertAfter( "Ultima" )
oWord:Visible = .T.
oWord:WindowState = 1