Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / данные (текст) из MS Word'a в таблицу MS Access ... как / 15 сообщений из 15, страница 1 из 1
03.07.2007, 14:29:09
    #34635094
wwwector
wwwector
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные (текст) из MS Word'a в таблицу MS Access ... как
Здравствуйте!

1. Есть (очень большой) документ MSWord 1.doc со следующей структурой:

Наименование

Состав

Инструкции

Наименование 1

Состав 1

Инструкции 1

и т. д.

каждый абзац (а возможно и не абзац, а просто несколько строк) может состоять из одной или нескольких строк. Главное, что они разделены пустой строкой (при желании можно разделить чем-нить другим)

2. есть таблица (допустим "tbRec") в MS Access (Rec.mdb) со следующей структурой
Наименования Составы Инструкции

3. очень хочется составить макрос, который смотрит текст в файле 1.doc, берет текст от первой пустой строки до следующей (возможно бежит по строкам до первой пустой), выделяет его, переносит (возможно через буфер обмена) текст в 1ю строку, 1й столбец таблицы "tbRec" (Access), т. е. "Наименование" в столбец "Наименования". Далее выделяет следующий текст от текущей пустой строки до следующей и переносит его в столбец "Составы" и т.д. После заполнения первой строки таблицы, прыгаем на одну вниз ... и так до конца ... т. е. цикл.

Большая просьба помочь, иначе крякну от ручного_копи_паст. Или ткните, где посмотреть.
Заранее спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 15:29:23
    #34635323
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные (текст) из MS Word'a в таблицу MS Access ... как
wwwectorЗдравствуйте!

1. Есть (очень большой) документ MSWord 1.doc со следующей структурой:

Наименование

Состав

Инструкции

Наименование 1

Состав 1

Инструкции 1

и т. д.

каждый абзац (а возможно и не абзац, а просто несколько строк) может состоять из одной или нескольких строк. Главное, что они разделены пустой строкой (при желании можно разделить чем-нить другим)

2. есть таблица (допустим "tbRec") в MS Access (Rec.mdb) со следующей структурой
Наименования Составы Инструкции

3. очень хочется составить макрос, который смотрит текст в файле 1.doc, берет текст от первой пустой строки до следующей (возможно бежит по строкам до первой пустой), выделяет его, переносит (возможно через буфер обмена) текст в 1ю строку, 1й столбец таблицы "tbRec" (Access), т. е. "Наименование" в столбец "Наименования". Далее выделяет следующий текст от текущей пустой строки до следующей и переносит его в столбец "Составы" и т.д. После заполнения первой строки таблицы, прыгаем на одну вниз ... и так до конца ... т. е. цикл.

Большая просьба помочь, иначе крякну от ручного_копи_паст. Или ткните, где посмотреть.
Заранее спасибо.
выложите фрагмент, хотя бы несколько абзацев
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 17:02:51
    #34635738
wwwector
wwwector
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные (текст) из MS Word'a в таблицу MS Access ... как
Наименование 6

Состав 6, Состав 6, олврплорла пл вв апло вдапо д,ылдоывдао ыддлоы
довлао Состав 6

Взять Часть одного, Смешать с 3/2 частями другого, взболтать, добавить Ингредиент 2, для смешивания использовать дрель, наносить слоями. Часть другого, Ингредиент 4, Взять Часть третьего, Смешать с 1/2 частями другого, взболтать, добавить Ингредиент 3, для смешивания использовать дрель, наносить слоями.Ингредиент 6

Наименование 7

Состав 7, Состав 7, олврплорла пл вв апло вдапо д,ылдоывдао ыддлоы
довлао Состав 7

Взять Часть одного 123 123 , Смешать с 144 3 4563/2 частями другого, взболтать, добавить Ингредиент 2, для смешивания использовать дрель, наносить слоями. Часть другого, Ингредиент 4, Взять Часть третьего, Смешать с 1 456 345/2 частями другого, взболтать, добавить Ингредиент 3, для смешивания использовать дрель, наносить слоями.Ингредиент 6

Наименование 8

и т. д.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 17:16:37
    #34635799
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные (текст) из MS Word'a в таблицу MS Access ... как
если структура постоянная и регулярная, то
1) выбираете в меню Таблица пункт преобразовать - текст в таблицу, подбираете количество колонок.
2) Потом таблицу копируете в Excel, сохраняете файл.
3) Открываете базу, импортируете сохраненную таблицу в новую
4) Построителем запросов транспортируете все данные куда надо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 18:01:58
    #34635975
wwwector
wwwector
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные (текст) из MS Word'a в таблицу MS Access ... как
vbaproесли структура постоянная и регулярная, то ...

1. Спасибо за наводку. Раньше не пользовался.
2. НО - В моем случае плохо работает.

поможет только цикл с перебором строк и поиском пустых
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2007, 19:15:24
    #34636177
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные (текст) из MS Word'a в таблицу MS Access ... как
wwwector vbaproесли структура постоянная и регулярная, то ...

1. Спасибо за наводку. Раньше не пользовался.
2. НО - В моем случае плохо работает.

поможет только цикл с перебором строк и поиском пустыхпроявите немного творчества: удалите повторяющиеся пробеты, разрывы строк, абзацы... выложите все-таки фрагмент файла doc, тогда получите более конкретные советы и помощь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.07.2007, 09:43:25
    #34636805
wwwector
wwwector
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные (текст) из MS Word'a в таблицу MS Access ... как
Вот.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.07.2007, 10:49:30
    #34637013
wwwector
wwwector
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные (текст) из MS Word'a в таблицу MS Access ... как
помогите хотя бы с циклом перемещения по строкам, выделением промежуточного диапазона между пустыми строками
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.07.2007, 15:47:06
    #34638492
wwwector
wwwector
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные (текст) из MS Word'a в таблицу MS Access ... как
ладно - цикл,
как перемещаться вниз по строкам, выделить промежуточный диапазон между пустыми строками
поможите плс
ручной копи_паст меня добьет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.07.2007, 18:08:24
    #34639091
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные (текст) из MS Word'a в таблицу MS Access ... как
wwwectorладно - цикл,
как перемещаться вниз по строкам, выделить промежуточный диапазон между пустыми строками
поможите плс
ручной копи_паст меня добьетк сожалению, не получается уделить хоть сколько времени толком, но Вы сами поробуйте макрорекордером записатть как передвигаться по тексту, разберётесь в объектах, где абзац, где слово, как количество символов узнать - это совсем не сложно и сделаете
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2007, 10:23:16
    #34640040
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные (текст) из MS Word'a в таблицу MS Access ... как
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub Macro2()
Dim Pa As Paragraph
    For Each Pa In ActiveDocument.Paragraphs
        Debug.Print Pa.Range.Characters.Count
        Debug.Print Pa.Range.Text
    Next Pa
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2007, 10:51:16
    #34643104
wwwector
wwwector
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные (текст) из MS Word'a в таблицу MS Access ... как
как и где узнать: есть ли такой объект "строка" в ворде, чтобы поставить условие на проверку количества символов в ней?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2007, 12:26:56
    #34643505
yuniki
yuniki
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные (текст) из MS Word'a в таблицу MS Access ... как
КопиПэстите содержимое Word'ского документа в Excel, начиная с ячейки A1 У ВАс будет задействован один первый столбец.

После чего ячейки легко можно обработать так ,чтобы получилась таблица из трех столбцов, (см excel'ские свойства : Cells(i,j), offset(1,0), Cells(i, 1).Delete Shift:=xlUp - удалить пустую строку etc )

Полученную таблицу уже конвертировать куда угодно можно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2007, 14:38:56
    #34644029
wwwector
wwwector
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные (текст) из MS Word'a в таблицу MS Access ... как
таблица (хоть в Экселе) должна заполняться следующим образом
A1->B1->C1
A2->B2->C2

можно сначала заполнить и столбец, а потом разнести по двум другим, НО

для этого СНАЧАЛА нужно разделить текст вордовского файла на диапазоны, разделенные пустыми строками друг от друга, т. е. в А1 должен попасть текст от первой строки до первой пустой, в следующую ячейку (не важно в А2 или В1) должен попасть текст от перой пустой до второй пустой строки.

А это я и пытаюсь выяснить. (
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2007, 11:28:17
    #34676619
wwwector
wwwector
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
данные (текст) из MS Word'a в таблицу MS Access ... как
И ...? Две недели ни одного ответа.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / данные (текст) из MS Word'a в таблицу MS Access ... как / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 420ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2182572]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 104ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 224ms
total:  420ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]