Запись в Excel данных таблицы Word

[Диагностик]

Здравствуйте! Помогите, если это возможно в принципе.
Для получения данных термографических изображений используется Word, который автоматически создает таблицу с данными (см.вложение). Данные меняются со сменой изображения. Для обработки этих данных в Word'e создается таблицa Excel. Сейчас данные копируются вручную из Word в
Excel, где автоматически меняются техстовые данные на числовые, производятся расчеты и строятся графики.
Хотелось бы исключить ручною работу по переносу данных из Word'a в
Excel. Возможно ли такое? Спасибо!

[viter.alex]

Задача решается и совсем не сложно.
Умный человек, который писал программу. сообразил, что нужно данные поместить в закладку
Внесу свой вклад. Эта функция из закладки в документе вытянет текст и преобразует его в строковый массив, каждый элемент которого, является искомым числом. Функции нужно передать документ, из которого взять закладку.

Public Function ConvertBookmarkToArray(oDoc As Word.Document) As Variant
  Dim sStr$, sArray
  On Error Resume Next
  sStr = Replace(oDoc.Bookmarks("OLE_LINK1").Range.Text, ChrW(11) & ChrW(11), ChrW(11))
  If Err.Number = 5941 Then
    Err.Clear
    MsgBox "В документе " & oDoc.Name & " нет закладки «OLE_LINK1»", 0 + 64, "Ошибка чтения"
    ConvertBookmarkToArray = Nothing
  ElseIf Err.Number <> 0 Then
    Err.Clear
    MsgBox "Ошибка выполнения.", 0 + 48, "Ошибка"
    ConvertBookmarkToArray = Nothing
  End If
  sStr = Replace(sStr, Chr(11), ", ")
  sArray = Split(sStr, ", ")
  ConvertBookmarkToArray = sArray
End Function

Остальное, я думаю, напишут специалисты по Excel. Я бы мог, да времени много уйдет

[Диагностик]

Большое спасибо, но для меня это сложно. Я знаю Excel на уровне грамотного пользователя, а с программированием вообще дел не имел.
Может кто-нибудь подскажет способ попроще.

[mchip]

А откуда беруться данные в Wird? Может стоит их сразу в Excel?

[EducatedFool]

Вы не могли описать задание более подробно?
У нас нет особого желания по сто раз переписывать макросы...

Кстати, в прикреплённом Вами архиве целых 2 комплекта документ Word + книга Excel.
Из какого из файлов Word надо извлекать данные?

В каком виде Вам надо получить данные на листе Excel?

Вот пример извлечения данных из файла Таблица.doc:
(выполненный с использованием функции от viter.alex)

Sub Перенос_Данных_Из_Word_в_Excel()
    On Error Resume Next: Application.ScreenUpdating = False
    Dim wa As New Word.Application, wd As Word.Document
    fn = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "Таблица.doc")
    wa.Visible = False: Set wd = wa.Documents.Open(fn, , True)
    If wd Is Nothing Then MsgBox "error": wa.Quit False: Exit Sub
    arr = ConvertBookmarkToArray(wd)
    wd.Close False: wa.Quit False:
    [a3:z55] = arr    ' вставка на лист
End Sub

1) Извлекаете оба файла из вложения в одну папку
2) Открываете книгу excel
3) Нажимаете зелёную кнопку

[Диагностик]

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

А откуда беруться данные в Wird? Может стоит их сразу в Excel?

Данные в таблицу Word транслируются из специальной программы обработки термограмм.

[Диагностик]

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

Вы не могли описать задание более подробно?
У нас нет особого желания по сто раз переписывать макросы...

Кстати, в прикреплённом Вами архиве целых 2 комплекта документ Word + книга Excel.
Из какого из файлов Word надо извлекать данные?

В каком виде Вам надо получить данные на листе Excel?

На книгу Excel не обращайте внимания, затесалась случайно.
В документе Word термограмма (я оставил только рисунок из-за большого её веса) и связанная с ней таблица с параметрами. На этом-же
листе уже мной создана таблица Excel. Если Вы её откроете, то увидете, что сначала я перенес туда данные копированием, а затем преобразовал до числового вида при помощи текстовых функций. Задача в том, чтобы автоматизировать ручную процедуру. То есть получать выходные данные (результаты расчетов в Excel) не открывая таблицы.

[viter.alex]

Надеюсь, что спецы Excel разберутся. Я ничего не понял, как там это сделано