Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.05.2023, 12:44   #1
Niyetkhan
Пользователь
 
Регистрация: 27.10.2016
Сообщений: 25
По умолчанию Выравнивание абзаца первых столбцов во всех таблицах документа

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

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

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


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


С уважением

Ниетхан.
Niyetkhan вне форума Ответить с цитированием
Старый 03.05.2023, 18:20   #2
jillitil
Форумчанин
 
Аватар для jillitil
 
Регистрация: 17.10.2018
Сообщений: 184
По умолчанию

Создаёшь макрос
Код:
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" свой.
jillitil вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Макрос вставки столбцов в нескольких таблицах Vladimir1959 Помощь студентам 1 23.07.2016 13:23
Выравнивание столбцов (<table>) Masafi HTML и CSS 3 11.01.2013 12:26
Дан двухмерный массив из 20 столбцов. Вставить в него столбец из чисел 10 после всех четных столбцов. Дмитрий142 Помощь студентам 9 07.06.2012 19:32
Макрос(перенос выделенного абзаца в конец активного документа) student12345 Microsoft Office Word 3 28.12.2011 23:59