yshindin пишет:VNIIAEN пишет:. . .Дело в том, что в оригинальном файле, из которого копировались необходимые стили, при создании новых таблиц стили применяются автоматически и корректно (без использования макросов). Мне нужно добиться именно такого поведения в новом документе.
. . .
По умолчанию при создании новой таблицы Word применяет определенный стиль таблицы. Название стиля зависит от локали, напр., это может быть "Сетка таблицы", а может быть и "Table Grid". Определите этот стиль и внесите в него соответствующие изменения.
Стиль нужно менять в Normal.dotm, либо в прикрепляемом стилевом шаблоне, если вы его используете (что я рекомендую), либо в самом документе - с этим надо вам разобраться.
Вот этим макросом можно узнать название стиля созданной таблицы (перед исполнением макроса поместите курсор в только что созданную таблицу).
Sub TableStyleInfo() 'TBD
Dim s As String
If Selection.Tables.Count > 0 Then
s = "Style: '" & Selection.Tables(1).Style & "'" & vbCrLf & _
"Rows: " & CStr(Selection.Tables(1).Rows.Count) & vbCrLf & _
"Columns: " & CStr(Selection.Tables(1).Columns.Count)
Else
s = "No table in selection"
End If
MsgBox s
End Sub
Ваш макрос вернул мне следующий набор данных:
Style: 'Сетка таблицы;Группа_ГМС_таблица'
Rows: 14
Columns: 2
Интересующий меня стиль "Группа_ГМС_таблица" - но этого названия ни в списке стилей оригинала, ни в списке стилей нового документа я не обнаружил. Список стилей для просмотра я вызываю сочетанием клавиш Ctrl+Shift+Alt+S.
Что я делаю не правильно, и как действовать дальше?