powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как определить высоту всей таблицы в документе Word?
5 сообщений из 5, страница 1 из 1
Как определить высоту всей таблицы в документе Word?
    #38624004
Дима Г
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте!

Помогите определить высоту всей таблицы в документе Word.

Я пытался делать вот так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim r As Word.Row
Dim x As Single
  
For Each r In ActiveDocument.Tables(1).Rows
  x = x + r.Height
Next
Debug.Print x


В результате x = 5E+07 .

Я понимаю, что в "Свойства таблицы" режим размера строки установлен "Минимум" и это от этого.
Как определить высоту таблицы или диапазона, который занимает таблица, не изменяя режим "Минимум"?
...
Рейтинг: 0 / 0
Как определить высоту всей таблицы в документе Word?
    #38624038
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А это точно неверное значение? Можно образец файла?
...
Рейтинг: 0 / 0
Как определить высоту всей таблицы в документе Word?
    #38624050
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Впрочем, вижу. Row.Height возвращает настройку высоты строки, а не реальную высоту. Поглядим, какие еще есть свойства....
...
Рейтинг: 0 / 0
Как определить высоту всей таблицы в документе Word?
    #38624059
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
не вчитывался, но тут вроде есть решение
...
Рейтинг: 0 / 0
Как определить высоту всей таблицы в документе Word?
    #38624122
Дима Г
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,

Здесь нашел.
http://stackoverflow.com/questions/4630277/how-to-get-the-height-of-a-table-row-in-word

Так получилось:
Код: vbnet
1.
2.
3.
4.
5.
Dim x As Word.Range
  
Set x = ActiveDocument.Tables(1).Range
Debug.Print ActiveDocument.Range(x.End).Information(wdVerticalPositionRelativeToPage) - _
            ActiveDocument.Range(x.Start).Information(wdVerticalPositionRelativeToPage)



Всем спасибо.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как определить высоту всей таблицы в документе Word?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]