Formatare tabel

[Dr.Windows]

Help
Nu face nimic.
(XP+Word 2003)

Cod: Selectaţi tot

Sub ApplyTableStyle()
   
    Dim tbl As Table
    For Each tbl In ActiveDocument.Tables
        tbl.Style = "Grid"
    Next
End Sub

[Dr.Excel]

Sigur ai un tabel in document? Ataseaza fisierul .doc

[Apostolu]

Run-time error '5834':
Item with specified name does not exist.

Adica nu exista acel "Grid" din Table AutoFormat.