mai multe tabele modificate deodata

[Apostolu]

Cum atribui aceleasi caracteristici mai multor tabele deodata ?
(fit to page, row height, etc)

[Dr.Excel]

da, doar folosind VBA. Adica un macro care sa realizeze toate aceste modificari in toate tabelele deodata

[Apostolu]

Merci

Il scri tu gratis ?
Ca pentru mine nu este RENTABIL sa imi trimit secretara sa invate Visual Basic !
Si nici sa angajez un programator ca sa bata la "masina de scris" doar de 2-3 ori pe luna. ))

[Dr.Excel]

da, o sa-l scriu pana luni

[Apostolu]

Eeee !
Multumesc mult de tot !

[Dr.Excel]

1. inainte sa ma apuc de treaba, spune-mi ce caracteristici comune sa aibe toate tabelele? (row height, width, etc)
2. tabelele comune unde le caut? in foaia curenta sau in tot documentul?

[Apostolu]

Cautarea tabelelor in tot documentul.
Atribute de setat:
Fit to page
Row height = 0
Row height is = Exactly

Inca o data multumesc.

[Dr.Excel]

adica vrei ca toate randurile sa aibe inaltimea 0?
ma rog ...

Cod: Selectaţi tot

Sub SeteazaToateTabelele()
 
    For Each tabel In ActiveDocument.Tables
        tabel.Rows.HeightRule = wdRowHeightExactly
        tabel.Rows.Height = InchesToPoints(0.01)
        tabel.AllowAutoFit = True
    Next
End Sub

[Apostolu]

NU face nimic !

[Apostolu]

Da, zero, pt ca am text in celule,
deci instructiunea va functiona ca un fit to letter height.