OLE Word

[kachenco]

Olá PessoALL,

Alguém sabe os comandos para eu poder inserir uma imagem bitmap no header de um arquivo do word jah pronto ?

[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

[sygecom]

Itamar, não consegui fazer funcionar seu exemplo.....vc poderia passar um exemplo completo.....

Tanks...

[kachenco]

Não achei onde vc inseri o bmp no header !?!?!?

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