Вывод формул из Excel в Word Mathtype.

[Tidus]

Задача. Например, есть элементарные формулы в ячейках на языке Экселя и идут они по порядку сверху вниз. Необходимо, что бы макрос определял формулы по порядку сверху-вниз на листе и выгружал их в таком же порядке в файл Word, в котором эти формулы отображались бы уже в виде формул MathType.
Реально ли такое реализовать?

[alebed]

Могу предложить такой вариант
Для начала необходимо сформировать список формул в текстовом виде
Прим: Ячейки столбца B должны быть в текстовом формате
Формировать можно к примеру так:
For i = 1 To 3
Range("B" & Trim(Str(i))).Value = Range("A" & Trim(Str(i))).Formula
Next i
Далее переносим формулы в Word
For t = 1 To 3
MyFormula = Worcbook(имя).Workshhet(имя).Range( "A" & Trim(Str(t))).Value
Активируем Word и выделяем в документе место вставки (как активировать не описываю)
Selection.InsertFormula Formula:= MyFormula, NumberFormat:="# ##0"
Selection.TypeParagraph ‘переводим на следующую строку - если вставка формулы в текст
Selection.MoveDown Unit:=wdLine, Count:=1 ‘ переходим на следующую строку - если вставка формулы в табл
Активируем Excel (как активировать не описываю)
Next t