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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.06.2009, 11:13   #1
malrah
Новичок
Джуниор
 
Регистрация: 16.06.2009
Сообщений: 9
По умолчанию Макрос на объединение 4 строчек в 1

Доброе время суток всем...
Ситуация такая: начальство поставило задачу объединить данные из 4 строчек в Вордовском документе в 1ну строчку, вес документа почти 100 метров и данных там очень много(редактировать все вручную не реально ибо года 2 понадобится)
Вот пример:
Нада привести документ типа

Йййййййййй
Ййййййййййййй
Йййййййййй
йййййййййййййййй

Йййййййййй
Ййййййййййййй
Йййййййййй
Йййййййййййййййй

В документ типа

Йййййййййй Ййййййййййййй Йййййййййй йййййййййййййййй
Йййййййййй Ййййййййййййй Йййййййййй йййййййййййййййй

Возможно ли написать какой-нибудь макрос на объединение строк в одну ?
Помогите плз...
malrah вне форума Ответить с цитированием
Старый 16.06.2009, 12:24   #2
BARNEY
Участник клуба
 
Регистрация: 23.04.2009
Сообщений: 1,058
По умолчанию

а в эксель перенести нельзя?
Если вам человек помог, не стесняйтесь говорить спасибо (весы под аватаром)
BARNEY вне форума Ответить с цитированием
Старый 16.06.2009, 12:46   #3
malrah
Новичок
Джуниор
 
Регистрация: 16.06.2009
Сообщений: 9
По умолчанию

перенести можно, но переносится в 4 ячейки, еслиб в 1 копировались, былобы проще
malrah вне форума Ответить с цитированием
Старый 16.06.2009, 13:03   #4
CaptainNemo
Пользователь
 
Аватар для CaptainNemo
 
Регистрация: 02.06.2009
Сообщений: 49
По умолчанию

Попробуйте использовать команду найти и заменить.
Нажмите ctrl + H и в поле найти введите
Код:
^$^p
Это запись означает, что нужно искать знак абзаца после любой буквы.
В поле «заменить» установите курсор и нажмите пробел.
Нажмите кнопку «Заменить все».

Android & Linux

Последний раз редактировалось CaptainNemo; 16.06.2009 в 13:12.
CaptainNemo вне форума Ответить с цитированием
Старый 16.06.2009, 13:22   #5
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

CaptainNemo, идея правильная, но немного неверная реализация. На пробел будет заменена также и буква, которая идет перед знаком абзаца.
Нужно использовать «Подстановочные знаки». В окошке, которое приведено в предыдущем сообщении, нажмите «Больше>>» и поставьте соответствующую галочку.

Найти: ([А-Яа-яЁё])^13. Это означает что нужно искать любую русскую букву, после которой стоит знак абзаца
Заменить: \1 . А это означает, что нужно заменить на первое выражение из фразы поиска и пробел. (первым выражением в поисковой фразе будет буква)
Лучше день потерять — потом за пять минут долететь!©

Последний раз редактировалось viter.alex; 16.06.2009 в 13:27.
viter.alex вне форума Ответить с цитированием
Старый 16.06.2009, 14:40   #6
malrah
Новичок
Джуниор
 
Регистрация: 16.06.2009
Сообщений: 9
По умолчанию

не получается =( пишет что заменено 0 объектов
malrah вне форума Ответить с цитированием
Старый 16.06.2009, 14:47   #7
malrah
Новичок
Джуниор
 
Регистрация: 16.06.2009
Сообщений: 9
По умолчанию

Получилось привести документ к такому виду:


Кому:*ГДОУ*Детский*сад*№22
Куда:*Сестрорецк,**Токарева*ул.,*13 А

Кому:*ГДОУ*Детский*сад*№24
Куда:*Сестрорецк,**Володарского*ул. ,*44

Кому:*ЗДРАВУШКА*Детский*сад*№28
Куда:*Сестрорецк,**Приморское*шоссе ,*294


2 строчи с названием кому и куда, пробел и так далее, может можно как нибудь через сводную таблицу в эксэле ?
malrah вне форума Ответить с цитированием
Старый 16.06.2009, 14:48   #8
malrah
Новичок
Джуниор
 
Регистрация: 16.06.2009
Сообщений: 9
По умолчанию

* - это прбел
malrah вне форума Ответить с цитированием
Старый 16.06.2009, 14:55   #9
CaptainNemo
Пользователь
 
Аватар для CaptainNemo
 
Регистрация: 02.06.2009
Сообщений: 49
По умолчанию

Сводная таблица к этой задаче никакого отношения не имеет. Хотя бы часть файла приложите. Что бы можно было видеть, что там и как раскидывать...
Android & Linux
CaptainNemo вне форума Ответить с цитированием
Старый 16.06.2009, 15:02   #10
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Цитата:
Сообщение от malrah Посмотреть сообщение
не получается =( пишет что заменено 0 объектов
Могло и не получиться, если перед знаком абзаца шла не буква. Поэтому немного изменим строку поиска:
Найти: ([!^13])^13, что означает найти все выражения, в которых перед знаком абзаца стоит все, кроме знака абзаца.
Лучше день потерять — потом за пять минут долететь!©

Последний раз редактировалось viter.alex; 16.06.2009 в 15:42.
viter.alex вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Макрос постоянно обрабатывает события. При открытии другой книги макрос обрывается. Ples Microsoft Office Excel 8 17.12.2016 18:15
Объединение БД Georgios БД в Delphi 3 25.01.2009 20:18
Сортировка строчек из txt файла mmka Общие вопросы C/C++ 26 24.11.2008 17:47
Появление строчек aleksandr_r Microsoft Office Excel 2 08.09.2008 14:26
Удаление пустрых строчек в Memo GAGARIN-NEW Общие вопросы Delphi 4 07.12.2007 17:09