Стиль таблиц в Word

[dantilly.livejournal.com]

А есть ли возможность применить единый стиль форматирования (скажем, границы – только сетка, 10 шрифт Times New Roman, выравнивание по ширине страницы, единичный междустрочный интервал) сразу ко всем таблицам в документе (их там несколько сотен и форматировать каждую очень муторно)?

Comments

[http://users.livejournal.com/_shader_/]

Sub FixAllTables()
  
  For Each objTable In ActiveDocument.Tables
    
    For Each objCell In objTable.Range.Cells

      
      For Each objBorder In objCell.Borders
        
        If objBorder.LineWidth = wdLineWidth025pt _
        Or objBorder.LineWidth = wdLineWidth050pt Then
         objBorder.LineWidth = wdLineWidth075pt
        End If
      Next objBorder
      
    Next objCell
  
  Next objTable
End Sub

В принципе этого примера должно хватить. Условия формируйте самостоятельно.
P.S. Ворда под рукой нет, макрос не запускал, но идея должна быть понятна.

[dantilly.livejournal.com]

Сейчас буду разбираться. Спасибо!