|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.06.2009, 11:13 | #1 |
Новичок
Джуниор
Регистрация: 16.06.2009
Сообщений: 9
|
Макрос на объединение 4 строчек в 1
Доброе время суток всем...
Ситуация такая: начальство поставило задачу объединить данные из 4 строчек в Вордовском документе в 1ну строчку, вес документа почти 100 метров и данных там очень много(редактировать все вручную не реально ибо года 2 понадобится) Вот пример: Нада привести документ типа Йййййййййй Ййййййййййййй Йййййййййй йййййййййййййййй Йййййййййй Ййййййййййййй Йййййййййй Йййййййййййййййй В документ типа Йййййййййй Ййййййййййййй Йййййййййй йййййййййййййййй Йййййййййй Ййййййййййййй Йййййййййй йййййййййййййййй Возможно ли написать какой-нибудь макрос на объединение строк в одну ? Помогите плз... |
16.06.2009, 12:24 | #2 |
Участник клуба
Регистрация: 23.04.2009
Сообщений: 1,058
|
а в эксель перенести нельзя?
Если вам человек помог, не стесняйтесь говорить спасибо (весы под аватаром)
|
16.06.2009, 12:46 | #3 |
Новичок
Джуниор
Регистрация: 16.06.2009
Сообщений: 9
|
перенести можно, но переносится в 4 ячейки, еслиб в 1 копировались, былобы проще
|
16.06.2009, 13:03 | #4 |
Пользователь
Регистрация: 02.06.2009
Сообщений: 49
|
Попробуйте использовать команду найти и заменить.
Нажмите ctrl + H и в поле найти введите Код:
В поле «заменить» установите курсор и нажмите пробел. Нажмите кнопку «Заменить все».
Android & Linux
Последний раз редактировалось CaptainNemo; 16.06.2009 в 13:12. |
16.06.2009, 13:22 | #5 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
CaptainNemo, идея правильная, но немного неверная реализация. На пробел будет заменена также и буква, которая идет перед знаком абзаца.
Нужно использовать «Подстановочные знаки». В окошке, которое приведено в предыдущем сообщении, нажмите «Больше>>» и поставьте соответствующую галочку. Найти: ([А-Яа-яЁё])^13. Это означает что нужно искать любую русскую букву, после которой стоит знак абзаца Заменить: \1 . А это означает, что нужно заменить на первое выражение из фразы поиска и пробел. (первым выражением в поисковой фразе будет буква)
Лучше день потерять — потом за пять минут долететь!©
Последний раз редактировалось viter.alex; 16.06.2009 в 13:27. |
16.06.2009, 14:40 | #6 |
Новичок
Джуниор
Регистрация: 16.06.2009
Сообщений: 9
|
не получается =( пишет что заменено 0 объектов
|
16.06.2009, 14:47 | #7 |
Новичок
Джуниор
Регистрация: 16.06.2009
Сообщений: 9
|
Получилось привести документ к такому виду:
Кому:*ГДОУ*Детский*сад*№22 Куда:*Сестрорецк,**Токарева*ул.,*13 А Кому:*ГДОУ*Детский*сад*№24 Куда:*Сестрорецк,**Володарского*ул. ,*44 Кому:*ЗДРАВУШКА*Детский*сад*№28 Куда:*Сестрорецк,**Приморское*шоссе ,*294 2 строчи с названием кому и куда, пробел и так далее, может можно как нибудь через сводную таблицу в эксэле ? |
16.06.2009, 14:48 | #8 |
Новичок
Джуниор
Регистрация: 16.06.2009
Сообщений: 9
|
* - это прбел
|
16.06.2009, 14:55 | #9 |
Пользователь
Регистрация: 02.06.2009
Сообщений: 49
|
Сводная таблица к этой задаче никакого отношения не имеет. Хотя бы часть файла приложите. Что бы можно было видеть, что там и как раскидывать...
Android & Linux
|
16.06.2009, 15:02 | #10 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Могло и не получиться, если перед знаком абзаца шла не буква. Поэтому немного изменим строку поиска:
Найти: ([!^13])^13, что означает найти все выражения, в которых перед знаком абзаца стоит все, кроме знака абзаца.
Лучше день потерять — потом за пять минут долететь!©
Последний раз редактировалось viter.alex; 16.06.2009 в 15: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 |