Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 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):
Польз. соглашение
созд. / загр.: 2184ms
Закрыть
start [/forum/search_topic.php?author=%D0%90%D0%BB%D0%B5%D0%BA%D1%81%D0%B5%D0%B9+%D0%91%D0%B8%D1%80%D1%8E%D0%BA%D0%BE%D0%B2&author_mode=last_topics&do_search=1]:
 0ms
get settings:
 11ms
get forum list:
 14ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 41ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 2013ms
total:  2184ms
x
x
Закрыть


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