Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Таблица в Word и объеденные ячейки / 8 сообщений из 8, страница 1 из 1
29.01.2011, 10:52
    #37085792
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таблица в Word и объеденные ячейки
Можно ли как ни будь подсчитать количество ячеек в последней (или конкретной) строке таблицы ворд,
если эта таблица имеет объединенные ячейки?

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2011, 10:56
    #37085794
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таблица в Word и объеденные ячейки
TpaBka,

а в чем проблема?
Код: plaintext
1.
2.
3.
?thisdocument.Tables( 1 ).Rows( 1 ).Cells.Count
 2 
?thisdocument.Tables( 1 ).Rows( 2 ).Cells.Count
 3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2011, 11:08
    #37085797
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таблица в Word и объеденные ячейки
А если еще имеются и объеденные строки

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2011, 11:11
    #37085801
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таблица в Word и объеденные ячейки
TpaBka,

Тогда уж нужно исходить из задачи, потому что в этом случае само понятие "строка" становится неактуальным.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2011, 11:50
    #37085821
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таблица в Word и объеденные ячейки
Shocker.ProTpaBka,

Тогда уж нужно исходить из задачи, потому что в этом случае само понятие "строка" становится неактуальным.
Согласен
Задача в следующем заполняется шаблон в ворде записями из рекордсетов rs и rst

если у rs нет подчиненных записей в rst, то таблица имеет вид:

если у rs есть подчиненные записи в rst, то таблица имеет вид:


Так вот при добавлении новой записи в таблицу (это не цикл а событие нажатие кнопки ) Я добавляю новую строку в таблицу методом
Код: plaintext
DocWord.Tables( 1 ).Rows.Add
Строка добавляется автоматом с тем количеством ячеек которое имеется в последней строке
А дальше мне надо определить если в добавленной строке 2 ячейки, то надо 1 ячейку разбивать на 2
если в добавленной строке 3 ячейки, то все нормально и разбивать не надо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2011, 12:52
    #37085847
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таблица в Word и объеденные ячейки
Решил свою проблему специфичным путем
Вариантов решения как оказалось много один из них это проверка рекордсетов
Но ответ на вопрос:
«Можно ли как ни будь подсчитать количество ячеек в последней (или конкретной) строке таблицы ворд,
если эта таблица имеет объединенные строки?»
Я так понимаю что ответ НЕТ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2011, 14:04
    #37085917
пробуй камнем
пробуй камнем
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таблица в Word и объеденные ячейки
TpaBka,
как вариант,
1) добавиь запись рекордсета как текст, выбрав какой-нибудь спецефический разделитель для полей;
2) преобразовать добавленный на первом шаге текст в таблицу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2011, 14:56
    #37085982
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Таблица в Word и объеденные ячейки
пробуй камнемTpaBka,
как вариант,
1) добавиь запись рекордсета как текст, выбрав какой-нибудь спецефический разделитель для полей;
2) преобразовать добавленный на первом шаге текст в таблицу.
Я сделал, что то на подобие Вашего варианта
Дело в том, что главные записи в моей таблице ворд нумеруются,
а подчиненные записи начинаются с *
Я просто проверяю:
Код: plaintext
1.
2.
If Val(Trim(DocWord.Tables( 1 ).Cell(DocWord.Tables( 1 ).Rows.Count- 1 ,  1 )))= 0  Then
разбиваю ячейку (там конечно есть ещё пару проверок)
End If
Но мне хотелось написать универсальную функцию без учета специфики таблицы
Вариант Эндрю тоже не плох, отлавливать и затем обрабатывать ошибку.
Короче всем спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Таблица в Word и объеденные ячейки / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 139ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2159007]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 36ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 12ms
total:  139ms
x
x
Закрыть


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