[Закрыто] (Решено) Вертикальное центрирование таблицы

А вы можете написать макрос? Я к сожалению не могу сам...

Значит средствами макросов нереально сделать что бы таблица автоматически разбивалась на таблички по 8 строк? и что бы шла проверка о наличии на странице только одной таблицы?
Потому что вариант о таблице в таблице к сожалению не подойдет...

Только что выключил дурака. Вот мы намудрили
А достаточно просто ВЫСТАВИТЬ ВЕРХНЕЕ И НИЖНЕЕ ПОЛЯ СТРАНИЦЫ ПОБОЛЬШЕ, чтобы таблица была по центру и нужной высоты

да да по 7) извините за дезу)

Структура таблицы такая - 1 строка- заголовок 1 страницы, 2 стока заголовок для 3 строки, 3 строка обе ячейки, два рисунка в каждой. 4 строка такая же как вторая и т.д.

А может это сделать не таблицами, а надписями?

Вот оригинал таблицы, из нее нужно сделать по табличке на каждой странице, с 6 рисунками, 6 подписями к ним, и заголовком таблицы.
Спасибо за макрос и помощь) он работает но из за моей ошибки выводит неверной результат) он учитывает заголовок таблицы, а в исходных данных его нет, моя вина признаю) Нужно в него я думаю добавить вставку строки перед первой строкой, и после каждой 6.

Отредактировано vangor (12.04.2010 19:30:58)

Файл увидел, но не понял, что является заголовком таблицы, а что подписью к рисунку? вроде трехзначные цифры везде. Как из различить??? Постарайтесь до утра ответить, чтобы к вечеру уже было решение.. Смогу доделать на работе, но сюда только вечером выложить..
Да, и еще  - что за формат бумаги вы используете?? На вашем формате бумаги вроде и так все умещается, как вам нужно.. Все же постарайтесь поподробнее и повнятнее сформулировать, что вам нужно, уже исходя из того, что пример файла у меня уже есть.

Sub A4Page_ResizeImage_7RowTable_CenterPage()
On Error Resume Next
Dim i As Integer
Dim j As Integer
Dim RowsCount As Integer
Dim TablesCount As Integer
Dim TableHeight As Single
Dim RowHeight As Single
Dim RowImageHeight As Single
Dim PageHeight As Single
Dim PageTopMargin As Single
    With ActiveDocument.PageSetup
        .PageWidth = CentimetersToPoints(21)
        .PageHeight = CentimetersToPoints(29.7)
    End With
  Dim oShpInl As InlineShape
    For Each oShpInl In ActiveDocument.InlineShapes
        oShpInl.Select
        oShpInl.Height = 162.45
        oShpInl.Width = 162.45
        RowImageHeight = oShpInl.Height
    Next
RowsCount = ActiveDocument.Tables(1).Rows.Count
TablesCount = RowsCount / 7
TablesCount = (RowsCount + TablesCount) / 7
For i = 1 To TablesCount
    Selection.GoTo What:=wdGoToTable, Which:=wdGoToFirst, Count:=i, name:=""
    Selection.InsertRowsAbove 1
    Selection.Cells.Merge
    ActiveDocument.Tables(i).Split (8)
    Selection.ParagraphFormat.PageBreakBefore = True
Next i
    RowHeight = 12
    TableHeight = 4 * RowHeight + 3 * RowImageHeight
 With ActiveDocument.Sections(1).PageSetup ' Задание параметров страницы по требованиям ГОСТ 2.105
       PageHeight = .PageHeight
       PageTopMargin = (PageHeight - TableHeight) / 2
        .TopMargin = PageTopMargin ' Отступ от верхнего края страницы
 End With
End Sub

Вот макрос, который делает все, что вы просили с приложенным файлом. Для изменения размера изображений просто поменяйте цифры в строках (приведенные цифры соответствуют 60% от реального размера рисунков, которые в приложенном файле):

        oShpInl.Height = 162.45
        oShpInl.Width = 162.45

исходя из того, что тут привено в point, а 1 см = 28,35 point

Пользуйтесь на здоровье! Если что, вопросы по этой же теме задавайте сюда же..

Отредактировано andrkar (13.04.2010 19:58:24)

То есть все работает, как надо?

Обращайтесь еще!

Простите был на маевке) Делал не я, мне лишь дали на обработку, могу узнать в эту среду и сообщить здесь если вам еще интересно)

Программа написана в нашем уиниверситете специально для вывода подобных диаграмм) т.к. преподавателя не устроил программы типпа fritz)

Вот ваш файл переделанный в таблицу. Думаю, по подобию сможете добавить и другие графики. Макроса тут писать, как я понимаю, не нужно..

Отредактировано andrkar (13.05.2010 18:28:53)

Вопрос, может, немного не по теме, но не нашёл темы более подходящей (тема "Форматирование таблиц" закрыта для редактирования).

В прилагаемом файле есть таблица с двумя строками. Невооружённым глазом видно, что текст в первой и второй строках таблицы горизонтально (относительно некоей вертикальной линии) выровнен по-разному. Кликая попеременно на верхнюю и нижнюю строку видно, как немного двигается линейка (визуальный инструмент MS Word), демонстрируя тем самым, что настройки строк различаются.

Вопрос: какие именно параметры (настройки) строк отличаются? Что нужно поменять в настройках нижней строки таблицы, чтобы выравнивание её было одинаковым с верхней строкой?

Понимаю, что это как-то очень просто, но упорно не получается разобраться. Пробовал смотреть и сравнивать настройки ячеек, таблиц, столбцов, абзацы (отступы, табуляцию и проч.), параметры страницы, копировать из верхней в нижнюю формат и прочее -- уже не упомню что именно. Результаты сравнения -- всё идентично.

Можно, конечно, после первой строки добавить пустую строку, скопировать в неё содержимое из последней строки и удалить последнюю. Но это, очевидно, "слабое" решение проблемы, хотя и доступное, но только для этого конкретного случая. А если этих строк много и отличается друг от друга добрая половина таблицы? Хочется понять, какой именно параметр отличается у этих строк.

Признаться, этот вопрос ненавязчиво меня мучает уже несколько лет. Периодически возвращаюсь к его решению, но мои изыскания результатов не приносят. Может кто-нибудь знает ответ?