форматирование табличек macrosom

[darklumen]

скажем есть 3 таблички на листе. их надо отформатированть по какому-нибудь стилю. Я пытался выделить весь текст (при записи макроса) и через автоформат таблицы задать им стиль. Но форматирует только 1 таблицу, первую. Не скажите, что в коде макроса дописать, чтобы все 3 таблички отформатировались?

[Teslenko_EA]

Здравствуйте darklumen.
"дописать.." подразумевает, что уже что-то написано, предоставьте возможность обозреть Ваши труды - выложив архив с файлом, только тогда Вы сможете расчитывать на помощь (совет).
Евгений.

[darklumen]

Здравствуйте darklumen.
"дописать.." подразумевает, что уже что-то написано, предоставьте возможность обозреть Ваши труды - выложив архив с файлом, только тогда Вы сможете расчитывать на помощь (совет).
Евгений.

вы правы:
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 28.09.2009 DarkLumen
'
Selection.WholeStory
With Selection.Tables(1)
.Style = "Сетка таблицы 2"
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With
End Sub

стиль применяется только к 1 таблице в тексте - а нужно ко всем. неселен я в vba/
можете порекомендовать литературку какую-нибудь.=)))

[Teslenko_EA]

Здравствуйте darklumen.

Код: Выделить всё

With Selection.Tables(1)
   

эта строка подразумевает обращение к свойствам одного объекта - Tables(1)

Код: Выделить всё

Sub Макрос1()
Dim i As Integer
Selection.WholeStory
For i = 1 To 3
   With Selection.Tables([B]i[/B])
      .Style = "Сетка таблицы 2"
      .ApplyStyleHeadingRows = True
      .ApplyStyleLastRow = True
      .ApplyStyleFirstColumn = True
      .ApplyStyleLastColumn = True
   End With
Next
End Sub

возможно такая корректировка кода Вам поможет.
Евгений.

[darklumen]

Здравствуйте darklumen.

Код: Выделить всё

With Selection.Tables(1)
   

эта строка подразумевает обращение к свойствам одного объекта - Tables(1)

Код: Выделить всё

Sub Макрос1()
Dim i As Integer
Selection.WholeStory
For i = 1 To 3
   With Selection.Tables([B]i[/B])
      .Style = "Сетка таблицы 2"
      .ApplyStyleHeadingRows = True
      .ApplyStyleLastRow = True
      .ApplyStyleFirstColumn = True
      .ApplyStyleLastColumn = True
   End With
Next
End Sub

возможно такая корректировка кода Вам поможет.
Евгений.

For i = 1 To 3- подразумевается что цикл выполняется 3 раза. т.е выполняется для 3 таблиц?
спасибо огромное! =)))