Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 08.12.2008, 17:25   #1
tolikman
Форумчанин
 
Регистрация: 25.08.2008
Сообщений: 159
По умолчанию Таблица на одной странице

Я кодом создаю таблицу, иногда таблица разрывается находясь на двух страницах, необходимо программно опустить таблицу. Наверное проеще достучаться до Tables(1).Range.Start и Tables(1).Range.End, если таблица разорвана то start и end будут находиться на разных страницах, но как определить на какой странице находится Tables(1).Range.Start и Tables(1).Range.End?
tolikman вне форума
Старый 08.12.2008, 21:00   #2
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию Может, поможет...

Sub TablesLucubration()
Dim N, i

With ActiveDocument

N = .Tables.Count
If N = 0 Then MsgBox "Таблиц нет!": Exit Sub

For i = 1 To N
.Tables(i).AllowPageBreaks = False 'вот особенно этот "финт"
MsgBox "Число страниц для таблицы " & i & " равно " & _
.Tables(i).Range. _
ComputeStatistics(wdStatisticPages)
Next i

End With
End Sub

Последний раз редактировалось Sasha_Smirnov; 09.12.2008 в 06:25. Причина: примечание.
Sasha_Smirnov вне форума
Старый 09.12.2008, 09:33   #3
tolikman
Форумчанин
 
Регистрация: 25.08.2008
Сообщений: 159
По умолчанию

Sasha_Smirnov' СПАСИБО!
tolikman вне форума
Старый 09.12.2008, 09:50   #4
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию Not at all

Спасибо умной среде разработки проектов!
Sasha_Smirnov вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Размещение записей на странице fr@m HTML и CSS 13 31.10.2008 23:03
Передача данных из одной таблицы в другую, при выборе одной ячейки MickMick Microsoft Office Excel 6 06.10.2008 13:57
Страница в странице delphin100 HTML и CSS 4 10.09.2008 06:21
Календарь в HTML странице. Fellics{новичок} HTML и CSS 1 20.06.2008 20:41
Переход по странице Gorychev HTML и CSS 2 16.05.2008 21:01