Ciao Enrico
ho trovato questo tuo esempio , ma quando lo uso ho questo errore :
rror description: Error BASE/1004 Class: 'NIL' has no exported method: CELL
Uso FW27 con xHArbour

Grazie per il tuo aiuto

MAurizio

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:\fwharbour\bitmaps\magic.bmp" )
oTable:Cell( 3, 5 ):Range:InsertAfter( "Ultima" )

oWord:Visible = .T.
oWord:WindowState = 1

RETURN NIL

A che riga ti dà l'errore? Forse non hai il bitmap nel persorso indicato?

EMG

L'errore è alla riga
oTable:Cell( 1, 1 ):Range:InsertAfter( "Prima" )

in effetti ho lo stesso errore anche eliminando
oTable:Cell( 1, 2 ):Range:InlineShapes:AddPicture("c:\fwharbour\bitmaps\magic.bmp" )

MAurizio

Non so che dirti, a me funziona con Office 2000. Può essere cambiato qualcosa nella tua versione di Office?

EMG

Enrico ho risolto,
era un problema con la versione di xharbour che uso

grazie

Benissimo.

EMG

Ciao Enrico

Ho aggiunto al documento un Tab con il codice seguente , e funziona correttamente .
Non riesco pero a posizionarmi su quel TAB per inserire una scritta .

Volevo chiederti se tu sai come fare.

MAurizio

include "fivewin.ch"

Function MAin()
LOCAL oWord, oDoc, oParagraphFormat , oTabstop
oWord = CREATEOBJECT( "Word.Application" )
oDoc = oWord:Documents:Add()

oParagraphFormat := oDoc:Get( 'ParagraphFormat')
otabstop := oParagraphFormat:Get( 'TabStops')
oTabstop:Invoke('Add', 300 ,2)
oWord:Visible = .T.
oWord:WindowState = 1

RETURN NIL

Funziona

Grazie tante Enrico