PRINCIPALE > LISTA DELLE AREE DI DISCUSSIONE > MS OFFICE > MESSAGGIO

Eseguire una ricerca veloce nell' archivio delle risorse di Visual Basic Italia®: 

Preso dall'archivio...

Premere il pulsante sotto per accedere direttamente ad un articolo o ad un esempio preso in modo casuale dall'archivio.
Ultimo e-book pubblicato:

"INTRODUZIONE AI CSS"

Lo scopo del CSS language è quello di controllare lo stile dei vari elementi che concorrono a formare un
documento HTML.
Si può operare in tre modi collegamento ad un foglio di stile esterno;definizione degli stili all'inizio
del documento utilizzo della proprietà style all'interno di un Tag HTML (embedded style). Questo e-book introduttivo
servirà per apprendere tali nozioni fondametali dei fogli di stile.


Prezzo: € 0.0.

Presentazione:
REAL SOFTWARE RILASCIA LA VERSIONE 5.0 di REALbasic per Windows






Gorizia, 5 maggio 2003 - Active, distributore in esclusiva di REALSoftware, Austin, Tx, annuncia la disponibilità di REALbasic 5.0 per Windows, uno strumento per lo sviluppo semplice da usare che permette agli utenti Windows di tutti i livelli di creare applicazioni personalizzate e di compilarle sia per la piattaforma Windows che per quella Macintosh. [>>]

http://www.active-software.com

Contatti. Utilizzare l'email generica per domande relative al sito:
Porre domande relative al sito
oppure scrivere ad un responsabile di area.
Responsabile del sito: >Andrea Martelli
Responsabile area "Corso di VB":
> Giorgio Abraini

Messaggio



Allineamento tabelle in WORD
Daniele 06/09/2004
Difficoltà: Medio

Devo definire il rientro a sinistra di una tabella in WORD. Questa è la mia Function ma non trovo listruzione per definire il rientro a sinistra dopo aver definito la tabella

"
Public Function CreaTabella()

pos = objWord.ActiveDocument.Paragraphs(intParagrafo).Range.Start

Set tblnew = objWord.ActiveDocument.Tables.Add( _
Range:=objWord.ActiveDocument.Range(Start:=pos, End:=pos), _
NumRows:=1, NumColumns:=4)

""QUI VORREI INSERIRE L?ISTRUZIONE POR POSIZIONARE
LA TABELLA A 3 CM DAL MARGINE SINISTRO""

intTabelle = intTabelle + 1
intRiga = 1
intColonna = 1
With objWord.ActiveDocument.Tables(intTabelle).Cell(Row:=intRiga, Column:=intColonna).Range
.Delete
.InsertAfter Text:="Mastro"
End With
intColonna = 4
With objWord.ActiveDocument.Tables(intTabelle).Cell(Row:=intRiga, Column:=intColonna).Range
.Delete
.InsertAfter Text:="Descrizione"
End With
objWord.ActiveDocument.Tables(intTabelle).Rows.Add
With objWord.ActiveDocument.Tables(intTabelle)
.Cell(Row:=intRiga, Column:=1).Merge _
MergeTo:=.Cell(Row:=intRiga, Column:=2)
.Borders.Enable = False
End With
With objWord.ActiveDocument.Tables(intTabelle)
.Cell(Row:=intRiga, Column:=1).Merge _
MergeTo:=.Cell(Row:=intRiga, Column:=2)
.Borders.Enable = False
End With
End Function
"

Grazie a tutti