Newsgroup: it.comp.appl.access
Titolo: larghezza colonne tabella word...

c'è qualche anima pia che mi aiuta a capire come cavolo si fa ad
impostare la larghezza delle colonne in una tabella creata da access
in word
E già che ci sono aggiungo e come faccio a far comparire i bordi??
Grazie, grazie, grazie.
Fede.
questo il mio infruttuoso tentativo...
Numerorighe =  7
        Wrd.ActiveDocument.Tables.Add Range:=Selection.Range,
NumRows:=(Numerorighe), NumColumns:=6
        With Wrd.Selection
        .Columns.PreferredWidth = CentimetersToPoints(3)
        .Move Unit:=wdColumn, Count:=1
        .SelectColumn
        .Columns.PreferredWidthType = wdPreferredWidthPoints
        .Columns.PreferredWidth = CentimetersToPoints(5.4)
        .Move Unit:=wdColumn, Count:=1
        .SelectColumn
        .Columns.PreferredWidthType = wdPreferredWidthPoints
        .Columns.PreferredWidth = CentimetersToPoints(1.8)
        .Move Unit:=wdColumn, Count:=1
        .SelectColumn
        .Columns.PreferredWidthType = wdPreferredWidthPoints
        .Columns.PreferredWidth = CentimetersToPoints(2.2)
        .Move Unit:=wdColumn, Count:=1
        .SelectColumn
        .Columns.PreferredWidthType = wdPreferredWidthPoints
        .MoveLeft Unit:=wdCell, Count:=6
        End With

non ho capito molto del perchè, ma funziona...
Numerorighe = RstValoriMisurati.RecordCount + 7
        Wrd.ActiveDocument.Tables.Add Range:=Selection.Range,
NumRows:=(Numerorighe), NumColumns:=6
'aggiungo i bordi alla tabella
Selection.Tables(1).Select
    With Selection.Borders(wdBorderTop)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderLeft)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderRight)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderHorizontal)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderVertical)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
         pausa
'provo a dimensionare le colonne
    Selection.Tables(1).Columns(1).PreferredWidthType =
wdPreferredWidthPercent
    Selection.Tables(1).Columns(1).PreferredWidth = 10
    Selection.Tables(1).Columns(2).PreferredWidthType =
wdPreferredWidthPercent
    Selection.Tables(1).Columns(2).PreferredWidth = 10
    Selection.Tables(1).Columns(3).PreferredWidthType =
wdPreferredWidthPercent
    Selection.Tables(1).Columns(3).PreferredWidth = 45
    Selection.Tables(1).Columns(4).PreferredWidthType =
wdPreferredWidthPercent
    Selection.Tables(1).Columns(4).PreferredWidth = 15
    Selection.Tables(1).Columns(5).PreferredWidthType =
wdPreferredWidthPercent
    Selection.Tables(1).Columns(5).PreferredWidth = 10
    Selection.Tables(1).Columns(6).PreferredWidthType =
wdPreferredWidthPercent
    Selection.Tables(1).Columns(6).PreferredWidth = 10


 ha scritto nel messaggio 
news:1176411862.7...@y80g2000hsf.googlegroups.com...
non ho capito molto del perchè, ma funziona...
[risposta]
Funzionerebbe meglio se scrivessi in coda al testo del messaggio precedente; 
non in testa...
Ciao.
-- 
Sergio MAZZA 

 
funzionerebbe meglio se TU non postassi la stessa risposta più volte ;)
-- 
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\

 /-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
Dici che è meglio un link ad una pagina web?
Ciao.
-- 
Sergio MAZZA 

 
è vero, c'è in giro la famosa pagina su come si quota BENE, gugol mi 
aiuterà a ritrovarla
poi c'è anche un famoso post su it.discussioni.auto che esprimeva lo stesso 
concetto con termini 'coloriti' :)
n.b.
io avevo messo la faccina... spero che tu l'abbia vista


 
http://groups.google.com/group/it.discussioni.auto/browse_thread/thread/28b
92f4485f20017/c88de7082f84b1c1?lnk=st&q=quota+cazzo+group%3Ait.discussioni.
auto&rnum=8#c88de7082f84b1c1


 
<
http://groups.google.com/group/it.discussioni.auto/browse_thread/thread/28
b92f4485f20017/c88de7082f84b1c1?lnk=st&q=quota+cazzo+group%3Ait.discussioni
.auto&rnum=8#c88de7082f84b1c1>
cosě dovrebbe essere meglio
oppure anche cosě:
http://tinyurl.com/294lhv


 /-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
Ciao.
-- 
Sergio MAZZA