Синхронизация WORD и EXCEL.

[Klim Bassenger]

Всем добрый день! Столкнулся с проблемой синхронизации ворда и экселя. Смысл проблемы:
Есть 2 файла: WORD и EXCEL (см. приложение). Нужно из файла Word перенести данные в соответстующие столбцы excel следующим образом:
1. В ворде в столбце "Référence" от одного до 5 подстолбцов ( в примере это "Chêne gris" и "Erable". В них находятся коды товара, по которому нужно найти в экселевском файле в столбце "B" соответствующий код (в ворде стоят в коде точки, звездочки, пробелы... В общем из кода вычленяем исключительно латинские буквы и цифры и по нему осуществляем поиск в эксель.).
2. В строку, где содержится код со столбца "K" по "O" вставляем соответствующие значения соответсвующих столбцов из WORD.
3. В столбец "P" экселя вставляем картинку из столбца ворда "Figurine" (желательно так, чтобы потом при автофильтре в экселе не сдвигались картинки, а четко находились на против нужной позиции). Ну и желательно вставить эту же картинку в примечание соответствующей ячейки Столбца "B".
4. Если данные уже существуют,то обновлять.


Я бы сделал всё руками, просто это всего 2 файлика, а таких файликов много. Поэтому нужна ваша помощь.

[doober]

Чисто теоретически возможно.
Открываете файл ворда макросом из в файла Excel , анализируете шапку таблицы Table(1).
Далее копируете на лист Table(2).
Опять же анализируете по объединенным ячейкам.
работаете с информацией,картинку получаете со столбца А.
Все это можно и в Ворде сделать,но с картинкой прийдется поиграться.
Неудобно с объединенными ячейками работать.
Честно,гембельное это дело,особенно объединенные ячейки.

[Klim Bassenger]

Вы имеете ввиду объединение ячеек там где коды??? Или последние столбцы тоже с геморроем обрабатываются. А если предположить, что столбик с кодами один?

[doober]

А ячейки первого столбца?

[Klim Bassenger]

Сообщение от doober

А ячейки первого столбца?

Точно... Еще сложнее стало... А если опустить пока картинки? Реально сделать? То есть первый стобик не трогать.

[tae1980]

Сообщение от Klim Bassenger

Точно... Еще сложнее стало... А если опустить пока картинки? Реально сделать? То есть первый стобик не трогать.

1. Исходный файл, может быть только в таком виде (в ворде)? Скорее всего данный файл ворда сам генерировался на основе некой базы.
2. Увидел объеденные ячейки только в шапке... Я что-то просмотрел?
3. Мало знаком с вордом, что мешает через буфер обмена перетащить таблицу в excel и анализировать ее там?

[Klim Bassenger]

Оригинал в cvs формате был. Скорее всего перегнали из PDF (ИМХО) .
Если скопировать, То в первом столбце объединенные ячейки (там где картинка ячейка одна, объединенная а справа идут коды). Проблем скопировать нет... Таких 50 файлов и раз в месяц меняются... Извиняюсь за беспокойство, но хочется раз сделать, чтоб потом только макросы запускать и добавлять (обновлять) данные.

[tae1980]

Сообщение от Klim Bassenger

1. В ворде в столбце "Référence" от одного до 5 подстолбцов ( в примере это "Chêne gris" и "Erable". В них находятся коды товара, по которому нужно найти в экселевском файле в столбце "B" соответствующий код (в ворде стоят в коде точки, звездочки, пробелы... В общем из кода вычленяем исключительно латинские буквы и цифры и по нему осуществляем поиск в эксель.).

* Уточняю, в примере в ворде два столбца, в других файлах их число может быть иным?
* В примере, коды вполне культурные,нужно убрать только точку. Как я понял бывают и другие?
* Куда девать строки вообще без кода или с одним кодом?

Сообщение от Klim Bassenger

2. В строку, где содержится код со столбца "K" по "O" вставляем соответствующие значения соответсвующих столбцов из WORD.

Копируем только в желтое колонки? Колонки A, C-J игнорируем?

Сообщение от Klim Bassenger

3. В столбец "P" экселя вставляем картинку из столбца ворда "Figurine" (желательно так, чтобы потом при автофильтре в экселе не сдвигались картинки, а четко находились на против нужной позиции). Ну и желательно вставить эту же картинку в примечание соответствующей ячейки Столбца "B".

Поначалу я бы на картинки забил.

Сообщение от Klim Bassenger

4. Если данные уже существуют,то обновлять..

То есть такого кода в excel может и не быть?.. Тогда пункт 1. содержит ошибку.

[doober]

Вот код для копирования таблиц вместе с картинками
далее анализируйте и в коде принимайте решения

Private Sub CommandButton1_Click()
 ActiveSheet.Rows("1:100").RowHeight = 90
Dim WD, W_doc, Tbl
Set WD = CreateObject("Word.Application")
WD.Visible = True
Set W_doc = WD.Documents.Open(Filename:=Application.ThisWorkbook.Path & "\ShanWORD.doc")
 W_doc.Tables(1).Select
WD.Selection.Copy
  Range("A1").Select
  ActiveSheet.Paste
 W_doc.Tables(2).Select
WD.Selection.Copy
  Range("A4").Select
  ActiveSheet.Paste
W_doc.Close (False)
Set W_doc = Nothing
WD.Quit
Set WD = Nothing

End Sub

PS:

Извиняюсь за беспокойство, но хочется раз сделать, чтоб потом только макросы запускать и добавлять (обновлять) данные.

А макросы вы писать будете?

[tae1980]

Сообщение от Klim Bassenger

Оригинал в cvs формате был. Скорее всего перегнали из PDF (ИМХО) .

CVS (не знаю я такого) или CSV
Если csv, можно ли его получить?

Сообщение от Klim Bassenger

Если скопировать, То в первом столбце объединенные ячейки (там где картинка ячейка одна, объединенная а справа идут коды). Проблем скопировать нет...

Ну и забить на них. Они вообще пока не при делах. В край разорвать, но лучшего этого не делать.

Сообщение от Klim Bassenger

Таких 50 файлов и раз в месяц меняются... Извиняюсь за беспокойство, но хочется раз сделать, чтоб потом только макросы запускать и добавлять (обновлять) данные.

ИМХО можно таблицу (только таблицу) из ворда в excel перегнать макросом. И анализировать её уже там. Но как сделать не знаю.