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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.05.2011, 15:09   #1
Port
Новичок
Джуниор
 
Регистрация: 17.05.2011
Сообщений: 2
По умолчанию Странные таблицы

Здравствуйте,
есть документ(.doc) содержащий текст и таблицы, в которых в ячейках данные записаны через разделитель строки. Получается нелинованная таблица, с шапкой и одной строкой. Как из этой таблицы сделать нормальную?

Заранее спасибо.
Port вне форума Ответить с цитированием
Старый 17.05.2011, 18:21   #2
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Только вручную переделать.
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 17.05.2011, 22:11   #3
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,079
По умолчанию

нажмите ALT и мышкой выделите столбик
копирование ctrl\c
создайте таблицу с нужным числом столбцов
выделите столбец ---ctrl\v

/////
и так далее
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Старый 18.05.2011, 11:02   #4
Port
Новичок
Джуниор
 
Регистрация: 17.05.2011
Сообщений: 2
По умолчанию

Автоматизировать процесс никак нельзя?
Port вне форума Ответить с цитированием
Старый 18.05.2011, 12:01   #5
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,079
По умолчанию

Код:
можно макросик написать ///примерно такой
заранее создать таблицу требуемого размера
sub mm()
dim pr as paragraph
dim j,s1
j=0
'цикл по строкам

for each pr in word.activedocument.paragrafs
j=j+1
s1=pr,range.text
with word.activedocument.tables(1)
.cells(j,1).range.text=mid(s1,1,6)
.cells(j,2).range.text=mid(s1,7,16)
.cells(j,3).range.text=mid(s1,24,6)
end with
next pr
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
странные таблички Пепел Феникса Свободное общение 5 22.09.2010 14:13
Странные ошибки. Rio309 Общие вопросы Delphi 2 19.10.2009 19:22
Странные окна в ХР. Танатис Windows 3 03.07.2009 14:13
Странные задачи L_M Свободное общение 60 19.05.2009 08:54