mai multe tabele modificate deodata

[Dr. Cloud]

L-am testat si eu si merge.
Cauta tabelele si le face inaltimea 0.

[Dr.Excel]

ai introdus codul intr-un modul VBA si l-ai lansat si nu face nimic?
poti sa atasezi aici documentul?

[Apostolu]

Scuze.
Face Row height = 0
Dar nu face fit to page in web mod

[Dr.Excel]

ia incearca acum:

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
        tabel.AutoFitBehavior (wdAutoFitWindow)
    Next
End Sub

[Apostolu]

Asa gasisem si eu pe net, cu :
wdAutoFitWindow
dar nu stiu sintaxa, asa ca ..... geba putirinta daca nu e stiinta.
Multam mult, acum merge.