Вычисления в Word

[teem0n]

Здравствуйте!

Требуется автоматически вычислять значение atan в Word. Реализовал полиномом, но точность недостаточная, Excel лучше считает...

Хотелось бы сделать на основе полей (чтобы просто "Выделить все" -> "Обновить" и все посчиталось ).

Есть еще мысль по макросу открывать эксель, считать там и полученные значения вытаскивать в Word. Можно ли привязать макрос к команде "обновить поле"?

[Sasha_Smirnov]

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

Можно ли привязать макрос к команде "обновить поле"?

Включил Вид→Макросы→Запись макроса, нажал F9. Получил

Sub Макрос4()
'    Selection.Fields.Update
    ActiveDocument.Fields.Update
End Sub

Который затем модифицировал для всех полей документа Word.

Арктангенс, по точности, при углах, близких к 90°, не надёжен (ибо tg→∞).

Я бы ряд не использовал; есть же прямая формула, не искали?

[teem0n]

Я хотел наоборот Чтобы при обновлении поля вызывался макрос.
Так-то я умею. А какая есть прямая формула? Я написал 15 членов ряда, стало сильно лучше

[Ципихович Эндрю]

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

[teem0n]

Особых режимов работы не надо, пользователи будут волноваться

[Aent]

В самом простом варианте вставляете в модуль кода

Public Sub UpdateFields()
   Dim f As Field
   Dim s As String
   For Each f In ActiveDocument.Fields
      s = Trim$(f.Code.Text)
      If Left$(s, 1) = "!" Then
          f.Result.Text = EvalMyFields(Mid$(s, 2))
      End If
   Next f
End Sub
Function EvalMyFields(s As String) As String
     Dim sArg As String
     Dim sFunc As String
     Dim i As Long
     i = InStr(s, "(")
     If i > 1 Then
         sFunc = Left$(s, i - 1)
     Else
         sFunc = s
     End If
     If i > 1 Then
         sArg = Mid$(s, i + 1)
         If Right$(sArg, 1) = ")" Then
            sArg = Left$(sArg, Len(sArg) - 1)
         End If
     End If
     Select Case sFunc
         Case "ATAN"
             EvalMyFields = Atn(CDbl(sArg))
         Case Else
             EvalMyFields = "????"
     End Select
End Function

и в Поле {!ATAN(1)}
Это пример реализации пользовательских полей.

[teem0n]

Спасибо, буду пробовать!

[Sasha_Smirnov]

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

А какая есть прямая формула? Я написал 15 членов ряда... стало сильно лучше

Ещё лучше (и точнее) так.

Const pi = 3.14159265358979
y = Atn(x) ' y - угол в радианах
y = Atn(x) / pi * 180 ' если y нужен в градусах