Программирование в VBA выделения нескольких строк в таблице Word 2014

Question

Я хочу изменить шрифт всех четных строк в большой таблице в Microsoft Word (большинство версий, я использую 2014) на красный

Я попробовал простой цикл:

For ii=2 to ActiveDocument.Tables(1).Rows.Count step 2
  ActiveDocument.Tables(1).Rows(ii).Select
  Selection.Font.ColorIndex = wdRed
Next

Иногда это зависает, иногда это работает, но занимает часы (моя таблица имеет 14000 строк...)

Тогда у меня возникла идея: вручную я могу выбрать строку, щелкнув левой кнопкой мыши слева от нее, а затем добавить дополнительные строки в выделение, нажав Ctrl-щелчок левой кнопкой мыши слева от них. И тогда я могу изменить шрифт всех строк, выбранных одновременно.

Итак, давайте посмотрим, если делать то же самое программно быстрее! Я пробовал что-то вроде

 ActiveDocument.Tables(1).Rows(2).Select
 For ii=4 to ActiveDocument.Tables(1).Rows.Count step 2
   Selection.Add (ActiveDocument.Tables(1).Rows(ii))
 Next
 Selection.Font.ColorIndex = wdRed

но Добавить не принимается как действительный элемент объекта выбора

Может ли кто-нибудь помочь там?

Answer 1

Определить новый стиль и применить его к таблице... VBA не требуется

это запись макроса примера изменения стиля... если вы хотите использовать vba

Selection.Tables(1).Style = "Grid Table 5 Dark - Accent 2"

Кроме того, запишите макрос создания нового определения стиля.... много хорошего