Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Как из Word-а перенести в Excel кое-что.. Пожалуйста!  (Прочитано 8239 раз)
0 Пользователей и 1 Гость смотрят эту тему.
IBM
Гость
« : 24-04-2008 10:22 » new

Господа, добрый день!
Помогите решить задачку. Есть документ в ворде (диссертация), в тексте этого документа полно ссылок на источники литературы. Ссылка выглядит так: [любое количество любых знаков]. Нужно написать програмку, которая пробежится по тексту, соберет весь текст в кавычках и кинет его в столбик в эксель или в текстовый файл..

Например, есть текст в ворде:

Добрый день [100] уважаемые участники форума!
Есть [очень большая] проблема!
Помогите [102, c.100].
Спасибо.

В экселевский файл нужно выкинуть в столбик:

100
очень большая
102, с.100

Как это сделать? Только, пожалуйста, не пишите логику работы программы - она ясна. У меня проблема со знанием операторов VBA, забылись уже за давностью..
Записан
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #1 : 25-04-2008 04:23 » 

меню Сервис-Макросы-Начать запись

и делаете то, что должна делать программа: плиск символа и его копирование
потом смотрите макрос и в месте где скопирован нужный вам текст вставляете его в ексель
для того чтобы туда вставить:
1) надо объявить переменну. екселя
Код:
Dim exApp as Excel.Application 

2)объявить рабочую книгу
Код:
Dim wb as Workbooks
3) открыть ее
Код:
set wb = exApp.Workbook.Open
4) а всавлять так
Код:
wb.Worksheets(1).Range(row, col) = нужный текст

Записан

I Have Nine Lives You Have One Only
THINK!
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines