Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как определить высоту всей таблицы в документе Word? / 5 сообщений из 5, страница 1 из 1
24.04.2014, 09:32
    #38624004
Дима Г
Дима Г
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить высоту всей таблицы в документе Word?
Здравствуйте!

Помогите определить высоту всей таблицы в документе 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
| Ответить | Цитировать | Написать  
24.04.2014, 10:02
    #38624038
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить высоту всей таблицы в документе Word?
А это точно неверное значение? Можно образец файла?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2014, 10:15
    #38624050
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить высоту всей таблицы в документе Word?
Впрочем, вижу. Row.Height возвращает настройку высоты строки, а не реальную высоту. Поглядим, какие еще есть свойства....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2014, 10:20
    #38624059
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить высоту всей таблицы в документе Word?
не вчитывался, но тут вроде есть решение
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2014, 10:50
    #38624122
Дима Г
Дима Г
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить высоту всей таблицы в документе Word?
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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как определить высоту всей таблицы в документе Word? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 364ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2156397]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 51ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 234ms
total:  364ms
x
x
Закрыть


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