Данные из таблицы в поле EQ

[CaptainNemo]

Всем привет
Возник такой вопрос….
Таблицу заполняю случайными числами:

Dim k As Integer
    With ActiveDocument.Tables(1).Range
        For k = 1 To .Cells.Count
            .Cells(k).Range = Format(Rnd() * 100, "#")
        Next k
    End With

Затем данные из ячеек применяю как переменные кода поля EQ

    With ActiveDocument.Tables(1).Range
    var1 = Left(.Cells(1).Range, 2): var2 = Left(.Cells(2).Range, 2)
    var3 = Left(.Cells(3).Range, 2): var4 = Left(.Cells(4).Range, 2)
    var5 = Left(.Cells(5).Range, 2): var6 = Left(.Cells(6).Range, 2)
    End With
With Selection
    .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    .TypeText "EQ \a \co3 \al ( " & var1 & "; " & var2 & "; " & var3 & _
    ";" & var4 & "; " & var5 & "; " & var6 & "; " & ")"
    Selection.Fields.Update
End With

Но заметил, что если рандомизировать данные, то при определённом их сочетании код не работает. Ни как не могу понять, что такое. Файл прилагаю…

[Sasha_Smirnov]

Лишний абзац внутри скобок в параметрах ключа \al.

Но если его убрать — всё равно не вижу матрицы. Может, лишняя ; после последнего элемента?.. Попробуйте, включив непечатаемые знаки, сравнить поле с каким-нибудь образцовым (которое работает нормально).

[viter.alex]

Все сделано правильно, но когда вы берете данные из ячеек, то почему-то уверены, что там всегда двузначное число. Это не так.

Ошибка возникает, если в таблице появляется однозначное число. Тогда в вашу переменную попадает кроме числа еще и знак абзаца, что и дает ошибку. Используйте вместо функции Left функцию Val, которая вам даст числовое значение из ячейки. Либо попробуйте объявить переменные var1-var6 как Integer, может быть Word сам справится с конвертированием из типа в тип. Первый вариант я попробовал, работает. Второй попробуйте сами.

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

Хотелось бы увидеть универсальный макрос, который формировал бы матрицу вне зависимости от количества ячеек в таблице.

Добавлено позже

Попробовал я сделать вне зависимости от количества ячеек. Почему-то не получается сделать матрицу больше чем 5 строк на 7 столбцов. Код формирует, но поле выдает ошибку.

И уберите пробелы между цифрами. Пользуйтесь ключем \hs для задания расстояния между столбцами. Читаем здесь

[CaptainNemo]

Да действительно, val помогает. Ещё немного подправил пробелы и выравнивание. Получилось довольно прилично. Но я вот для чего это всё пытался сделать… В конечном итоге хочу конвертировать эту матрицу в MS Equation3. И хочу сделать это в коде…
В версиях MS Word до 2007* (в 2007-ом у меня выскакивает ошибка «формула слишком велика для преобразования») двойным кликом по полю EQ формула конвертировалась в MS Equation. Сколько вчера с макрорекодером не экспериментировал, так и не понял, как это можно в коде сделать. Единственное, что пришло в голову, написать что-нибудь вроде этого:

Sub ConvertToEquation3()
    With ActiveDocument.Fields(1).OLEFormat
        .ActivateAs ClassType:="Equation.3"
        .Activate
    End With
End Sub

Хотя этот вариант тоже не рабочий… Эх.

[viter.alex]

А зачем? Поле прочитается и отредактируется на любом компе. MS Equation — не обязательно.
Я тоже пробовал, увидев ваш пример. Тоже не получилось.

[CaptainNemo]

Всё дело в том, что на многих форумах по VBA-программированию проскальзывали вопросы, как сгенерировать в коде формулу MS Equation на основе каких либо данных, например, полученных в Excel. Причём эти вопросы так и остались без ответа.

Тут матрицу я только для примера взял, можно интеграл сделать, или любую другую формулу в виде поля EQ. Интересно, возможно ли сделать не только поле, но и Equation?

[viter.alex]

могу предложить использовать для этой цели MathType. Насколько я помню, он поддерживает VBA

[CaptainNemo]

Сообщение от viter.alex

могу предложить использовать для этой цели MathType. Насколько я помню, он поддерживает VBA

=============================
Много лет уже приходится оформлять публикации с использованием редактора формул. Горький опыт научил, что MathType – самая проблемная программа в этом плане. Искажает кириллические символы на разных машинах. А если версии этой программы на разных машинах отличаются – не открывается для редактирования. Поэтому всегда использую MS Equation. Как показывает практика, он почти всегда корректно работает на разных машинах и вне зависимости от того, какая версия Office установлена.
Но на счёт применения VBA в MathType услышал впервые. Вроде бы даже искал раньше в инете что-либо на подобные темы, но не нашёл… Может подскажете, где это можно почитать…

[CaptainNemo]

Может кому-нибудь пригодиться. Попробовал в Equation.3 пересылать формулы из VBA таким вот незамысловатым кодом… Получается.

Sub eq()
Dim myObj As Object
   Set myObj = Selection.InlineShapes.AddOLEObject(ClassType:="Equation.3")
    myObj.Select
    SendKeys "sin{(}x{)}{+}cos{(}x{)}=1", True
End Sub

[viter.alex]

Осталось заметить, что это равенство неправильное. Все-таки единице равна не сумма синуса и косинуса, а сумма их квадратов.
Теорема Пифагора, однако!