Выравнивание абзаца первых столбцов во всех таблицах документа

[Niyetkhan]

Здравствуйте!

Никак не могу найти решение следующего вопроса:

В документе Word большое количество таблиц (около 400).
Надо только в Первом столбце каждой таблицы установить выравнивание (абзаца) слева.
То есть выровнять все ячейки первых столбцов во всем документе. Не включая оставшиеся столбцы, так как количество столбцов в таблицах разное.


Помогите, пожалуйста!


С уважением

Ниетхан.

[jillitil]

Создаёшь макрос

Sub Макрос1()
    For i = 1 To ActiveDocument.Tables.Count
        ActiveDocument.Tables.Item(i).Select
        Selection.Columns(1).Select
        Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
        Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0.3)
    Next
End Sub

И запускаешь на исполнение.
Если нужен ещё отступ, то в команде CentimetersToPoints(0.3) задаёшь вместо "0.3" свой.