Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте! Мне нужна помощь. Дело вот в чём . Есть "вордовский" файл кот содержит группы цифр записанные в одной строке (визуально выглядит как ровные колонки цифр ). Вот 5 строчек.

Ппомогите пожалуйста привести это к таблице эксель так чтоб получились колонки. Нужен скрипт или может программу посоветуете. Заранее СПАСИБО

Вопрос задал: el.grankin (статус: Посетитель) Вопрос отправлен: 28 октября 2010, 16:05 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Егор

Здравствуйте, el.grankin!
Да не надо никакого скрипта. Всё делается проще.
В Ворде выбираем пункты "Правка" - "Заменить" (либо нажимаем Ctrl+h). Появится окошко замены. В первом поле ("Найти:") набираем два символа: ^w. Во втором поле ("Заменить на") набираем тоже два символа: ^t. Нажимаем кнопку "Заменить всё". Таким образом мы заменяем все пробелы (а вернее, все непрерывные последовательности пробельных символов) на знаки табуляции. После этого выделяем все цифры (можно нажать Ctrl+ф для того, чтобы выделить весь документ) и выбираем пункты меню "Таблица" - "Вставить" - "Таблица". Все чиселки будут аккуратно разложены по ячейкам таблицы. Теперь эту таблицу копируем в память и вставляем в Excel.

Ответ отправил: Егор (статус: 10-ый класс) Время отправки: 28 октября 2010, 19:53 Оценка за ответ: 5 Комментарий к оценке: Огромное спасибо ! Всё работает на ура!

Мини-форум вопроса

Егор (статус: 10-ый класс), 28 октября 2010, 19:53 [#1]: Или надо именно скриптом/программой из ворда в эксел вставлять? Задача тоже, в принципе, решаемая. Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

el.grankin (статус: Посетитель), 29 октября 2010, 14:23 [#2]: Ну впринципе у нас женьщины это должны делать,а они, не сильно с компьютером дружат. Идеально было бы этот процесс немного автоматизироать. Буду очень рад вашей помощи. К примеру задать на кнопочку. Но всёравно вы очень помогли Ещё раз ОГРОМНОЕ спасибо.

Егор (статус: 10-ый класс), 29 октября 2010, 21:42 [#3]: Да запросто. В мелкософте даже разработали специально решение для подобных случаев - называется "макрос". Короче, делаем так. 1. Загружаем документ с циферками (ну или создать новый и забить туда эти циферки). 2. Выбираем пункты меню Сервис - Макрос - Начать запись. 3. Появится окошко "запись макроса". Там можно указать имя макроса (по умолчанию Макрос1, но можно поменять на что-нибудь типа работа_с_чиселками - в имени могут быть только буквы, цифры (но не на первом месте) и знак подчёркивания) "макрос доступен для:" - вот тут нужно выбрать "всех документов (normal.dot)" "Описание" - тут можно написать что-то типа "(с)2010 Вася Пупкин, все права защищены, не воровать!" 4. Жмём ОК. Пошла запись макроса 5. Выполняем ту работу, которую надо будет выполнять каждый раз: * Правка - Замена * ^w / ^t * Заменить всё * Закрыть * Правка - Выделить всё * Таблица - Вставить - Таблица * Правка - Копировать 6. Всё. Когда запускали запись макроса, у нас должна была появиться маленькая панель с двумя кнопочками - "остановить запись" и "пауза". жмём "остановить запись". Макрос готов. 7. Делаем для него кнопочку: "Сервис" - "настройка". 8. Появится окно "настройка". Там выбираем вкладку "панели инструментов". Нажимаем "создать". Вводим имя для панели - например, "Супер-нужные инструменты для работы". "Сделать доступной для" - указываем Normal.dot. Жмём ОК. Появится новая панель инструментов. Она пока что пустая. 9. Переходим на вкладку "Команды". В левом списке ищем пункт "Макросы", выбираем его. В правом списке ищем наш макрос (скорее всего, он будет самым последним и называться "Normal.NewMacros.Макрос1" или похоже). 10. Берём этот макрос левой клавишей мыши и перетаскиваем его на нашу новую панель инструментов. 11. Появится новая кнопка с длинным страшным названием "Normal.NewMacros.Макрос1" - это оно и есть. 12. В принципе, оно всё готово. Но можно улучшить - щёлкаем на нашей кнопке правой клавишей, в появившемся меню в пункте "имя" можно задать новое имя, более читабельное. В пункте "выбрать значок на кнопке" можно поставить значок. Ну и т.д. Можно свой значок нарисовать, текст убрать совсем и т.д. Панель можно передвинуть куда хочется. ************* Теперь, как работать. 1. Открываем файл с циферками. 2. Жмём нашу супер-кнопочку. 3. Переключаемся в ексел и жмём "вставить". )) ************* Как скопировать макрос на другой комп: 1. На нашем компе выбираем Сервис - Макрос - Макросы. 2. В появившемся окне жмём "Организатор". 3. В окне "Организатор" на вкладке "макросы" в списке "Из Normal.dot:" выделяем наш макрос (по идее, он там один-единственный должен быть) и жмём "Копировать". Макрос скопируется в список "В doc1.doc:" (ну или как там будет называться открытый файл). Потом переключаемся на вкладку "Панели" и аналогично копируем в открытый файл нашу панель инструментов. Жмём "Закрыть". 4. Сохраняем документ. 5. Идём на другой комп с этим файлом. Открываем ворд. Файл с макросом пока НЕ открываем. Переходим в меню Сервис - Макрос - Безопасность. Ставим "Средняя". Иначе наш макрос открываться не будет. 6. Теперь открываем файл с макросом. Ворд ругнётся, что в файле макросы, и, типа, вирусы. Говорим "Не отключать макросы". 7. Сервис - Макрос - Макросы -> Организатор. Копируем макрос и панельку из файла в Normal.dot. Закрываем файл с макросом. Теперь кнопка есть и на новом компе. Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

Мережников Андрей (статус: Абитуриент), 31 октября 2010, 17:15 [#4]: откуда берутся вордовские файлы? не проще сразу в эксель набивать?

el.grankin (статус: Посетитель), 1 ноября 2010, 07:29 [#5]: Спасибо огромное всё я всё понял. Свё же работает. Век живи-век учись.

el.grankin (статус: Посетитель), 1 ноября 2010, 07:33 [#6]: Я даже немного модерниировалпоследовательность у меня ексель сам открывается единственное пиходилось выполнять последовательность вставить ручками. Но я записал другой макрос и теперь всё в ажуре. Ещё раз спасибо большое.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.