Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форум 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 » Автоматизация » Макрос выравнивания содержимого всех ячеек всех таблиц в документе