per enrico problema con WORd oTable:cell

[Maurizio]

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

[Enrico Maria Giordano]

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

EMG

[Maurizio]

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

[Enrico Maria Giordano]

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

EMG

[Maurizio]

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

grazie

[Enrico Maria Giordano]

Benissimo.

EMG

[Maurizio]

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

[Enrico Maria Giordano]

Eccoti un esempio funzionante:

Code: Select all  Expand view

FUNCTION MAIN()

    LOCAL oWord, oDoc, oSel

    oWord = CREATEOBJECT( "Word.Application" )

    oDoc  = oWord:Documents:Add()

    oDoc:Paragraphs:TabStops:Add( 300 )

    oDoc:Select()

    oSel = oWord:Selection

    oSel:InsertAfter( CHR( 9 ) + "This is a test." )

    oSel:Collapse()

    oWord:Visible = .T.

    RETURN NIL

EMG

[Maurizio]

Funziona

Grazie tante Enrico