Текст из .txt в .doc

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Лафик
Сообщения: 2
Зарегистрирован: 01 апр 2014, 19:16

Подскажите, как решить данную проблему? Есть .txt фаил c текстом, нужно сделать программу или макрос который перенесет информацию из txt в Word. В txt файле есть пробелы между текстом, нужно перенести в Word в отдельные ячейки таблички. (Если есть подробнее учебник об этом киньте плиз ссылку)


Вот пример текста:

Код: Выделить всё

НОМЕР         НАИМЕНОВАНИЕ                     КОД ЦЕННОСТИ                ЦЕНА              ПРИХОД           

343000         Телеф.аппарат                     040666000017               756.00             63.90
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

Это встроенная функциональность Word, которая была еще в Office 95.
Вставьте это в документ просто как текст, потом выделите вставленный текст.
Далее меню Вставка/Таблица/Преобразвать в таблицу.
Дальше откроется диалоговое окошко, в котором надо указать, что разделителем является пробел.

Единственное что ещё предварительно потребуется сделать, это временно убрать пробел в заголовке "КОД ЦЕННОСТИ", а после преобразования вставить этот пробел обратно, чтобы не образовалась лишняя ячейка в этой строке.
Лафик
Сообщения: 2
Зарегистрирован: 01 апр 2014, 19:16

Да в том то и дело что надо сделать автоматизированную программу,которая сделает импорт из txt в Word... при это создаст таблицу. Не нашел в учебнике как сделать импорт экспорт из txt.
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

См. меню Вставка. Там есть кнопка Объект / Текст из файла.
Оба действия (и вставку текста и преобразование в таблицу) наверняка можно записать макрорекордером, получится макрос, в который нужно будет только вставить запрос имени файла.

PS
Учебников на все случаи жизни не существует. ;)
Ответить