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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.03.2010, 20:52   #1
Centurion2xx6
 
Регистрация: 25.03.2010
Сообщений: 6
Сообщение Добавление строк в таблицу с вставкой в них текста и чередованием фона строк

Привет всем!
Есть документ Word. В нём 1 таблица с двумя колонками.
Как можно сделать так, чтобы при добавлении в колонки текста (это будут слова: английские в левой колонке, и соответствующие им русские в правой. По одному слову на строку), и запуске макроса, каждая строка столбца "делалась" ячейкой таблицы и чередовался фон? Это нужно чтобы можно было видеть какому слову соответствует какой перевод.

Приблизительный алгоритм:
Для начала берём левую колонку
Перебираем ячейки (ряды), смотрим в какой больше одного слова (это нужно для того, если макрос запускается не первый раз и верхние строки уже "преобразовались" в ячейки, и позже были добавлены новые слова см. пример)
При нахождении таковой нужно эти слова загнать в массив и создавать ячейки по количеству слов в массиве, в каждую ячейку вставлять очередное слово и присваивать ей чередующийся фон (например белый/серый).

Когда все слова загнаны в отдельные ячейки, перейти к правой колонке и проделать то же.
Сложно ли будет, если в документе будет 2 таблицы (одна левее центра, другая правее), в которых это нужно делать (сэкономить место на листе)?

Посмотрите атачмент, сразу всё будет понятно. Извините если не смог донести свою мысль. Заранее спасибо!
Вложения
Тип файла: doc Slovarik.doc (31.0 Кб, 14 просмотров)

Последний раз редактировалось Centurion2xx6; 26.03.2010 в 00:00.
Centurion2xx6 вне форума Ответить с цитированием
Старый 26.03.2010, 07:58   #2
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Посмотри в сторону стилей таблиц. Там можно задать для таблицы чередующийся фон и без всяких макросов
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 26.03.2010, 10:58   #3
Centurion2xx6
 
Регистрация: 25.03.2010
Сообщений: 6
По умолчанию

Цитата:
Сообщение от viter.alex Посмотреть сообщение
Посмотри в сторону стилей таблиц. Там можно задать для таблицы чередующийся фон и без всяких макросов
Дело в том, что будет добавляться много слов, и для каждого делать ячейку займёт очень много времени...
Centurion2xx6 вне форума Ответить с цитированием
Старый 26.03.2010, 11:21   #4
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Значит в сторону стилей не смотрел или я не верно понял задание.
Попробуй добавить строки в таблицу приложенного документа. Количество столбцов значения не имеет.
Вложения
Тип файла: doc rad579CD.doc (32.0 Кб, 14 просмотров)
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 26.03.2010, 12:19   #5
Centurion2xx6
 
Регистрация: 25.03.2010
Сообщений: 6
По умолчанию

посмотрел, спасибо.
Но дело в том, что я буду добавлять в колонки по 15-20 слов (в левую и правую), они расположатся в одной ячейке, одного цвета (в вашем примере)... а копи-пастить по одному в каждую ячейку - это очень долго...

в одну колонку нормально вставляется столбик из слов, всё как нужно... но когда в соседнюю с ней вставляю - не получается так, чтобы правые слова соответствовали левым. Получается, что каждому левому слову соответствует вставляемый столбик слов.
посмотрите атачмент.
Вложения
Тип файла: doc rad579CD-CASE.doc (31.5 Кб, 11 просмотров)

Последний раз редактировалось Centurion2xx6; 26.03.2010 в 12:25.
Centurion2xx6 вне форума Ответить с цитированием
Старый 29.03.2010, 11:00   #6
Centurion2xx6
 
Регистрация: 25.03.2010
Сообщений: 6
По умолчанию

никто не поможет ?
Centurion2xx6 вне форума Ответить с цитированием
Старый 29.03.2010, 11:22   #7
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Как делать, я вам уже сказал. Никакой макрос вам не нужен. Создайте таблицу из одной строки и двух столбцов. Примените к ней стиль.
Затем отступите один абзац от таблицы и вставьте ваш текст. Затем выделите его и преобразуйте в таблицу с двумя столбцами. Удалите абзац между первой таблицей и получившейся. К объединённой таблице применить стиль. Всё.
В приложенном файле видео как это всё делать для Word 2007.
Всё, что от вас требуется, чтобы перевод шёл в следующем абзаце за словом.
Вложения
Тип файла: rar Оформление таблицы.rar (450.2 Кб, 13 просмотров)
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 29.03.2010, 20:17   #8
Centurion2xx6
 
Регистрация: 25.03.2010
Сообщений: 6
По умолчанию

а если у меня есть столбик русских и столбик английских - так не выйдет?
Centurion2xx6 вне форума Ответить с цитированием
Старый 29.03.2010, 20:39   #9
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Если все пары слов в отдельных строках, то выйдет.
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 30.03.2010, 11:00   #10
Centurion2xx6
 
Регистрация: 25.03.2010
Сообщений: 6
По умолчанию

Цитата:
Сообщение от viter.alex Посмотреть сообщение
Если все пары слов в отдельных строках, то выйдет.
мм.. это как ?

я имел ввиду, если так:
Код:
entail
deployed
underlying
влечет за собой
развернуть
основной
Centurion2xx6 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Добавление строк Atevss Microsoft Office Excel 8 10.03.2010 05:15
ДОбавление строк из БД Kveldulv Microsoft Office Excel 2 09.02.2010 15:52
GridView - добавление строк freez87 Общие вопросы .NET 5 06.06.2009 00:11
добавление строк StringGrid Alex_76 Помощь студентам 7 10.06.2008 15:17
Добавление строк в массив boks Microsoft Office Excel 2 28.09.2007 10:08