Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форум Microsoft Word » Автоматизация » Макрос выравнивания содержимого всех ячеек всех таблиц в документе
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Добрый день уважаемые эксперты!
Требуется макрос для выравнивания содержимого всех таблиц в документе в трех вариантах:
1. "сверху по левому краю"
2. "по центру по левому краю"
3. "по центру"
(То есть по сути три отдельных макроса)
На выходе содержимое всех ячеек всех таблиц должно иметь одинаковое выравнивание.
Самому собрать средствами записи макроса не получилось.
Благодарю за помощь!
С уважением, Максим.
не верю
1. "сверху по левому краю"
2. "по центру по левому краю"
3. "по центру"
1-я строка по центру+1столбец по леву(иногда и второй)+остальные вправо
или
все по центру
забыла
--есть ли объединенные ячейки
Когда выделяете таблицу во вкладке макет, в разделе выравнивание есть 9 кнопочек, именно они и содержат "сверху по левому краю" "по центру по левому краю" "по центру".
Надо сделать 3 макроса: первый макрос выделяет все таблицы и осуществляет функцию первой кнопочки, второй макрос - кнопочки "по центру по левому краю", и наконец последний третий макрос нажимает кнопочку "по центру".
Да, объединенные ячейки иногда есть.
Понимаю, что проблема для профессионалов может быть небольшой, однако сам я ее решить не в силах.
Единственное что приходит в голову, это макрос для выравнивания всех таблиц по ширине окна, может его можно как-то изменить?
Sub TopLeft()
'
' Сверху по левому краю
'
'
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
oTbl.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
oTbl.Range.Cells.VerticalAlignment = wdCellAlignVerticalTop
Next
End Sub
Sub CenterLeft()
'
' По центру по левому краю
'
'
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
oTbl.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
oTbl.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
Next
End Sub
Sub CenterMiddle()
'
' По центру
'
'
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
oTbl.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
oTbl.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
Next
End SubВсе прекрасно работает.
Благодарю!
С уважением, Максим.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форум Microsoft Word » Автоматизация » Макрос выравнивания содержимого всех ячеек всех таблиц в документе
Макрос выравнивания содержимого всех ячеек всех таблиц в документе
При обработке текстов очень часто человеку приходится делать много механической работы. Нередки ситуации, когда для редактирования предоставляют многостраничные тексты, в которых требуется убрать лишние пробелы, изменить или назначить стили, добавить оглавление, чтобы оно было оформлено в соответствии с ГОСТами. На портале о Microsoft Office Word вы узнаете про: если русский текст по ошибке стали набирать в английской раскладке, word автоматически преобразует абракадабру.
К счастью, Microsoft Word содержит много инструментов и возможностей для этого. Познакомиться с редко используемыми функциями, тонкими настройками, секретами написания шаблонов и назначения макросов для различных задач можно на форуме сайта Ворд Эксперт. На портале о Microsoft Office Word вы узнаете про: что нужно чтобы прочитать файлы docx.
Форум содержит наработки по наиболее часто встречающимся ситуациям. Стандартные вопросы и ответы на них вынесены в отдельный подраздел. На портале о Microsoft Office Word вы узнаете про: word раздельная нумерация частей или разделов документа. В других подразделах обсуждаются разные способы форматирования текстов и отличия версий Ворда. Свой подфорум для автоматизации, здесь вы найдете макросы, шаблоны, требуемые сочетания горячих клавиш и многое другое. На портале о Microsoft Office Word вы узнаете про: где в седьмом ворде замена слов.
В отдельных подразделах можно познакомиться с готовыми решениями или выложить свои, а также оставить заявку на решение возникшей у вас задачи. На портале о Microsoft Office Word вы узнаете про: как с ворде заливать квадраты в таблице. Вопросы, касающиеся других офисных программ и тем, напрямую не связанных с Вордом, обсуждаются в подразделе «Общение». На портале о Microsoft Office Word вы узнаете про: word при открытии идет настройка.