FiveTech Software tech support forums

Posted: **Fri Oct 20, 2006 12:46 pm**

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

Posted: **Fri Oct 20, 2006 1:45 pm**

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

EMG

Posted: **Fri Oct 20, 2006 2:03 pm**

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

Posted: **Fri Oct 20, 2006 4:37 pm**

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

EMG

Posted: **Mon Oct 23, 2006 7:02 am**

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

grazie

Posted: **Mon Oct 23, 2006 7:12 am**

Benissimo.

EMG

Posted: **Thu Oct 26, 2006 3:47 pm**

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

Posted: **Thu Oct 26, 2006 4:40 pm**

Eccoti un esempio funzionante:

Code: Select all | Expand

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

Posted: **Fri Oct 27, 2006 4:58 pm**

Funziona

Grazie tante Enrico

FiveTech Software tech support forums

per enrico problema con WORd oTable:cell

per enrico problema con WORd oTable:cell

Re: per enrico problema con WORd oTable:cell