Внедрение специальных символов с помощью функции ChrW
Скобки: «(..)».
Пример:
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
После выполнения данной программы будет создан новый документ со следующей формулой:
Внедрение специальных символов с помощью функции ChrW
Корень квадратный
Пример:
Sub formula7()
'Объявляем документ
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 = 3
x = Sqr(a * b)
'В переменную заносим код формулы
formula = "x=" & ChrW(8730) & "(a·b)= " & ChrW(8730) & "(" & a & "·" & b & ")=" & x & "·" & ChrW(8730) & 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
После выполнения данной программы будет создан новый документ со следующей формулой:
Для отображения знака корня используется функция ChrW(8730), которая возвращает символ корня (√) по его коду (8730).
Коды некоторых специальных символов приведены в следующей таблице.
Таблица № 2.1 Таблица №
Коды символов
| Код | Символ | Пример. Проф. вид | Пример. Лин.вид |
| 8712 | ∈ | ||
| 960 | π | ||
| 8719 | ∏ | ||
| 8721 | ∑ | ||
| 8723 | ∓ | ||
| 8730 | √ |
| 
|
| 8731 | ∛ | ||
| 8732 | ∜ | ||
| 8734 | ∞ | ||
| 8747 | ∫ | 
| 
|
| 8804 | ≤ | ||
| 8805 | ≥ | ||
| 8869 | ⊥ | ||
| 9618 | ▒ |
|
|
| 9632 | ■ | 
| 
|
| 9508 | ┤ | 
| 
|
| 9601 | ▁ | 
| 
|
| 175 | ¯ | 
| 
|
| 9645 | ▭ | 
| 
|
|
|
|
Для того чтобы найти коды остальных символов можно воспользоваться программой или с помощью калькулятора.
Следующая программа поместит в документ все символы в нашем случае от 8704 до 9632. В этом интервале находится большинство нужных математических символов, наиболее часто используемых. Данные числа можно задавать произвольно.
Subasdfe()
Dim x As Long
For x = 8704 To 9632
With Active Document.Range
.InsertAfter "(" & x & " - " & ChrW(x) & ")"
.InsertParagraphAfter
End With
Next
End Sub
Чтобы вычислить код символа при помощи калькулятора нужно выполнить следующие действия:
1. Найдите необходимый символ в Таблице символов. Как открыть эту таблицу смотрите выше.
2. Запишите шестнадцатеричный код символа, который отображен в нижнем левом углу. Например, для знака корня код: 221A.
3. Открыть стандартный калькулятор и изменить вид на Программист (для Windows7 и Windows8) или на Инженерный (для WindowsXP).
4. Выбрать шестнадцатеричную систему исчисления (Hex).
5. Набрать найденный код нужного символа.
6. Выбрать десятеричную систему исчисления (Dex).
В результате получим десятеричный код символа для функции ChrW.
Интеграл.
Иногда нужно, чтобы символ был в высоту всего выражения. Тогда используется специальный символ ▒. Его код можно также найти в таблице. Он отделяет данный символ от внутреннего выражения.
В линейном виде данная формула будет выглядеть так:
Если удалить символ ▒, то формула при переводе в профессиональный вид будет выглядеть так:
Пример программы:
Sub formula10()
'Объявляем документ
Dim Doc As Document
'Создаем новый документ
Set Doc = New Document
'Делаем его активным
Doc.Activate
'Объявляем переменные
Dim x As Single
'Объявляем переменную, в которой будет содержаться код формулы
Dim formula As String
'В переменную заносим код формулы
formula = ChrW(8747) & ChrW(9618) & "1/x dx"
'Объявляем объект – диапазон 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
Кроме интеграла данный символ так же использует при составлении формул со знаками суммы, первообразной, скобок.
9. Матрица.
Чтобы создать матрицу также понадобится специальный символ: ■. Его код представлен в таблице.
В линейном виде эта матрица выглядит следующим образом:
Амперсанд (символ &) нужен для разделения данных одного столбца от другого. Символ @ разделяет строки.
Пример программы:
Sub formula10()
'Объявляем документ
Dim Doc As Document
'Создаем новый документ
Set Doc = New Document
'Делаем его активным
Doc.Activate
Dim formula As String
'В переменную заносим код формулы
formula = ChrW(9632) & "(a_11&a_12@a_21&a_22 )"
'Объявляем объект – диапазон 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
Дата добавления: 2021-11-30; просмотров: 24; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!