ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / данные (текст) из MS Word'a в таблицу MS Access ... как
15 сообщений из 15, страница 1 из 1
данные (текст) из MS Word'a в таблицу MS Access ... как
    #34635094
wwwector
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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, 14:29:09
| Ответить | Цитировать | Написать  
данные (текст) из MS Word'a в таблицу MS Access ... как
    #34635323
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
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, 15:29:23
| Ответить | Цитировать | Написать  
данные (текст) из MS Word'a в таблицу MS Access ... как
    #34635738
wwwector
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wwwector
Гость
Наименование 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:02:51
| Ответить | Цитировать | Написать  
данные (текст) из MS Word'a в таблицу MS Access ... как
    #34635799
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
если структура постоянная и регулярная, то
1) выбираете в меню Таблица пункт преобразовать - текст в таблицу, подбираете количество колонок.
2) Потом таблицу копируете в Excel, сохраняете файл.
3) Открываете базу, импортируете сохраненную таблицу в новую
4) Построителем запросов транспортируете все данные куда надо
...
Рейтинг: 0 / 0
03.07.2007, 17:16:37
| Ответить | Цитировать | Написать  
данные (текст) из MS Word'a в таблицу MS Access ... как
    #34635975
wwwector
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wwwector
Гость
vbaproесли структура постоянная и регулярная, то ...

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

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

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

поможет только цикл с перебором строк и поиском пустыхпроявите немного творчества: удалите повторяющиеся пробеты, разрывы строк, абзацы... выложите все-таки фрагмент файла doc, тогда получите более конкретные советы и помощь
...
Рейтинг: 0 / 0
03.07.2007, 19:15:24
| Ответить | Цитировать | Написать  
данные (текст) из MS Word'a в таблицу MS Access ... как
    #34636805
wwwector
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wwwector
Гость
Вот.
...
Рейтинг: 0 / 0
04.07.2007, 09:43:25
| Ответить | Цитировать | Написать  
данные (текст) из MS Word'a в таблицу MS Access ... как
    #34637013
wwwector
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wwwector
Гость
помогите хотя бы с циклом перемещения по строкам, выделением промежуточного диапазона между пустыми строками
...
Рейтинг: 0 / 0
04.07.2007, 10:49:30
| Ответить | Цитировать | Написать  
данные (текст) из MS Word'a в таблицу MS Access ... как
    #34638492
wwwector
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wwwector
Гость
ладно - цикл,
как перемещаться вниз по строкам, выделить промежуточный диапазон между пустыми строками
поможите плс
ручной копи_паст меня добьет
...
Рейтинг: 0 / 0
04.07.2007, 15:47:06
| Ответить | Цитировать | Написать  
данные (текст) из MS Word'a в таблицу MS Access ... как
    #34639091
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
wwwectorладно - цикл,
как перемещаться вниз по строкам, выделить промежуточный диапазон между пустыми строками
поможите плс
ручной копи_паст меня добьетк сожалению, не получается уделить хоть сколько времени толком, но Вы сами поробуйте макрорекордером записатть как передвигаться по тексту, разберётесь в объектах, где абзац, где слово, как количество символов узнать - это совсем не сложно и сделаете
...
Рейтинг: 0 / 0
04.07.2007, 18:08:24
| Ответить | Цитировать | Написать  
данные (текст) из MS Word'a в таблицу MS Access ... как
    #34640040
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
Код: 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
05.07.2007, 10:23:16
| Ответить | Цитировать | Написать  
данные (текст) из MS Word'a в таблицу MS Access ... как
    #34643104
wwwector
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wwwector
Гость
как и где узнать: есть ли такой объект "строка" в ворде, чтобы поставить условие на проверку количества символов в ней?
...
Рейтинг: 0 / 0
06.07.2007, 10:51:16
| Ответить | Цитировать | Написать  
данные (текст) из MS Word'a в таблицу MS Access ... как
    #34643505
yuniki
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
yuniki
Участник
КопиПэстите содержимое Word'ского документа в Excel, начиная с ячейки A1 У ВАс будет задействован один первый столбец.

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

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

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

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

А это я и пытаюсь выяснить. (
...
Рейтинг: 0 / 0
06.07.2007, 14:38:56
| Ответить | Цитировать | Написать  
данные (текст) из MS Word'a в таблицу MS Access ... как
    #34676619
wwwector
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wwwector
Гость
И ...? Две недели ни одного ответа.
...
Рейтинг: 0 / 0
23.07.2007, 11:28:17
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / данные (текст) из MS Word'a в таблицу MS Access ... как
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34637013&tid=2182572]:
 0ms
get settings:
 5ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 35ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 186ms
total:  274ms
созд. / загр.: 274ms
x
x
Закрыть


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