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

[dantilly.livejournal.com]

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

Comments

[shabunc.livejournal.com]

есть.
зайдите в меню формат >> стили и форматирование

кажется, так.

[dantilly.livejournal.com]

И? Там можно применить заготовленное форматирование к выделенному тексту.
И еще можно применить автоформат таблицы в меню "таблица" - но только в одной.
А как сразу - и ко всем?

[shabunc.livejournal.com]

нет.
там можно не только применить заготовленное форматирование к выделенному тексту.

создайте одну таблицу, тогда в
"панельке стили и форматирование"
появится подпункт "секта таблицы"

вы можететам попробовать что-то поменять

[zexo.livejournal.com]

Макросом

[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]

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