Ancora su Word

[Romeo]

Salve a tutti,
sono riuscito con alcuni esempi di word/harbour presi da questo forum a fare delle buone stampe.

Ora pero' volevo cimentarmi a creare nuovi comandi da harbour che normalmente si usano da word, esempio: creare tabelle con dimensioni utente, colorare le caselle, caricare grafici e quant'altro.

i comandi del tipo: odoc:tables.add(oword:selection:range,10,15) che crea una tabella uniforme con 10 x 15 celle non mi va bene e vorrei dimensionarla io....ma come si fa?
Piu' in generale da dove si prendono questi comandi?
C'e' qualche file di spiegazioni similare a quello che ha excel ?

Grazie al solito che mi da l'imput....
Romeo/Zingoni

[Enrico Maria Giordano]

VBA*.CHM

EMG

[Romeo]

Grazie, ora ricordo che me lo avevi gia' detto.
Ho chiaramente problemi a capire come si fa a creare e dimensionare (x esempio) una tabella fissa del tipo:

odoc:tables.add(oword:selection:range,10,15)

Qualche aiuto?
Grazie

[Enrico Maria Giordano]

Questo è un piccolo esempio:

Code: Select all  Expand view

FUNCTION MAIN()

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

    oWord:Visible = .T.

    oWord:WindowState = 1

    RETURN NIL

EMG

[Romeo]

Grazie,
questo esempio o qualcosa di simile ce lo avevo, quello e' che mi manca e' dimensionare le celle (non tutte uguali) oppure fare dei box, linee - che mi serviranno pe disegnare un corpo fattura (esempio)

....e' troppo ?

Ciao

[Enrico Maria Giordano]

Temo ti dovrai studiare il manuale.

EMG

[Romeo]

Grazie cmq.
Ciao

[Romeo]

E' che i files che mi hai indicato, li ho trovati, ma la sitassi dei comandi e' diversa da quella che io conosco e quindi faccio fatica a trasformarla in istruzioni xbase, fa niente, mi arrangio alla meglio. Sigh !

Ciao