Массовое выделение элементов докумена (таблиц, рисунков)

Я не программирую на VBA, поэтому  предложение может  оказаться неверным.
Подсчитать кол-во таблиц в документе   
CountTab=ActiveDocument.Tables.Count
и потом в цикле их выделить 
for i=1 to CountTab
ActiveDocument.Tables(i).Select
end

Всем спасибо!

В данном случае выделяется таблицы друг за другом, но выделенная остается только полседняя!

Я думал, что можно одним макросом выделить все таблицы (т.е. это как при нажатом ctrl выделяю мышью таблицы в документе) и отформатировать их по своему усмотрению.

Отредактировано 1st (01.03.2011 19:27:36)

Не парьтесь:
Я думал, что можно одним макросом выделить все таблицы (т.е. при нажатом ctrl выделяю мышью таблицы в документе) и отформатировать их по своему усмотрению.
Макрос это сделает если у Вас не 600-700 таблиц легко просто будет делать циклом или при условии, что эти таблицы идут следом одна за другой всё можно их выделить сразу все

Если изначально таблицы одного стиля, то делаем так:

ActiveDocument.Tables(1).Select
Application.Run "SelectSimilarFormatting"
Selection.Style = "Простая таблица 1"

Рисунки "в тексте" (InLineShapes) выбрать можно только по одному, а все рисунки "перед текстом" (Shapes) выделяем так:

ActiveDocument.Range.ShapeRange.Select

Для массовой обработки последних не обязательно их выбирать, можно и так:

ActiveDocument.Range.ShapeRange.Delete

Как пример: Как выровнять все таблицы по ширине окна.

Попробовал на чистом документе -> Создал произвольную таблицу (по умолчанию параметр/галочка Интервалы между ячейками отключен) -> Запустил процесс создания макроса -> Сначала активировал интервалы, потом снял.
Автоматический код привожу ниже:

Sub a_111()
'
'
'
    With Selection.Tables(1)
        .TopPadding = CentimetersToPoints(0)
        .BottomPadding = CentimetersToPoints(0)
        .LeftPadding = CentimetersToPoints(0.19)
        .RightPadding = CentimetersToPoints(0.19)
        .Spacing = CentimetersToPoints(0.04)
        .AllowPageBreaks = True
        .AllowAutoFit = True
    End With
    With Selection.Tables(1)
        .TopPadding = CentimetersToPoints(0)
        .BottomPadding = CentimetersToPoints(0)
        .LeftPadding = CentimetersToPoints(0.19)
        .RightPadding = CentimetersToPoints(0.19)
        .Spacing = 0
        .AllowPageBreaks = True
        .AllowAutoFit = True
    End With
End Sub

Как видно, единственным отличаем является параметр "Spacing". Однако при выставлении его в 0 = параметр не деактивируется, а выставляется в нулевое значение ==> сдвоенные границы, что визуально сильно "карявит" документ..

Рисунки "в тексте" (InLineShapes) выбрать можно только по одному

А как можно такие рисунки отделить и применить к ним форматирование?
Если на примере, то есть в документе такие рисунки: одни крупные к ним идет подпись из названия. Другие мелкие, размещены внутри текста. Нужно крупные рисунки разместить по центру, а мелкие не трогать.