Тригонометрические функции: « sin, cos, tg, ctgи т.д.».

Скобки: «(..)».

Пример:

Sub formula4()

'Объявляем документ

Dim Doc As Document

'Создаем новый документ

Set Doc = New Document

'Делаемегоактивным

Doc.Activate

 

'Объявляем переменные

Dim a As Single, b As Single, x As Single

'Объявляем переменную, в которой будет содержаться код формулы

Dim formula As String

 

'Присваеваем значение переменным

a = 2: b = 4

x = (a / b) ^ 2

'В переменную заносим код формулы

formula = "x=(a/b)^2=(" & a & "/" & b & ")^2=" & x

 

'Объявляем объект – диапазон objRange

Dim objRange As Range

'Объявляем объкт objEq, как формулу

Dim objEq As OMath

 

'Устанавливаем объект objRange, как выделенную часть документа. В нашем случае место под курсором

Set objRange = Selection.Range

'свойству text объекта objRange присваиваем код формулы

objRange.Text = formula

'преобразуем объект objRange в математическую формулу

Set objRange = Selection.OMaths.Add(objRange)

'создаем объект objEq, образуя его из объекта objRange

Set objEq = objRange.OMaths(1)

'Преобразуем формулу из линейного вида к профессиональному

objEq.BuildUp

End Sub

После выполнения данной программы будет создан новый документ со следующей формулой:

Тригонометрические функции: « sin, cos, tg, ctgи т.д.».

Пример:

Sub formula5()

'Объявляем документ

Dim Doc As Document

'Создаем новый документ

Set Doc = New Document

'Делаем его активным

Doc.Activate

   

'Объявляем переменные

Dim a As Single, b As Single, x As Single

'Объявляем переменную, в которой будет содержаться код формулы

Dim formula As String

 

'Присваеваем значение переменным

a = 0: b = 0

x = sin(a) * cos(b)

'В переменную заносим код формулы

formula = "x=sin a · cos b=" & sin(a) & "·" & cos(b) & "=" & x

 

'Объявляем объект – диапазон objRange

Dim objRange As Range

'Объявляем объкт objEq, как формулу

Dim objEq As OMath

 

'Устанавливаем объект objRange, как выделенную часть документа. В нашем случае место под курсором

Set objRange = Selection.Range

'свойству text объекта objRange присваиваем код формулы

objRange.Text = formula

'преобразуем объект objRange в математическую формулу

Set objRange = Selection.OMaths.Add(objRange)

'создаем объект objEq, образуя его из объекта objRange

Set objEq = objRange.OMaths(1)

'Преобразуем формулу из линейного вида к профессиональному

objEq.BuildUp

End Sub

После выполнения данной программы будет создан новый документ со следующей формулой:

6. Модуль:

Пример:

Sub formula6()

'Объявляем документ

Dim Doc As Document

'Создаем новый документ

Set Doc = New Document

'Делаем его активным

Doc.Activate

 

'Объявляем переменные

Dim a As Single, b As Single, x As Single

'Объявляем переменную, в которой будет содержаться код формулы

Dim formula As String

 

'Присваеваем значение переменным

a = -3: b = 4

x = Abs(a * b)

'В переменную заносим код формулы

formula = "x=|a·b|=" & " | " & a & "·" & b & " | " & "=" & x

 

'Объявляем объект – диапазон objRange

Dim objRange As Range

'Объявляем объкт objEq, как формулу

Dim objEq As OMath

 

'Устанавливаем объект objRange, как выделенную часть документа. В нашем случае место под курсором

Set objRange = Selection.Range

'свойству text объекта objRange присваиваем код формулы

objRange.Text = formula

'преобразуем объект objRange в математическую формулу

Set objRange = Selection.OMaths.Add(objRange)

'создаем объект objEq, образуя его из объекта objRange

Set objEq = objRange.OMaths(1)

'Преобразуем формулу из линейного вида к профессиональному

objEq.BuildUp

End Sub

После выполнения данной программы будет создан новый документ со следующей формулой: