Как из него сделать надстройку?

[sonata]

Есть код для вычисления в Word, но он работает только в текущем документе, как из него сделать надстройку?Чтобы при открытии любого документа Word я могла им пользоваться?

Код: Выделить всё

Public xlapp As Object

Sub Calc()
Dim ls As String
On Error GoTo errhnd

If xlapp Is Nothing Then
    Set xlapp = CreateObject("Excel.Application")
    xlapp.Workbooks.Add
End If
ls = Trim(Selection.Text)

If Len(ls) > 2 Then
                                        'проверим конец строки
    If Right(ls, 1) = Chr(13) Then ls = Left(ls, Len(ls) - 1)
    xlapp.Application.Cells(1, 1).formulaR1C1 = "=" & ls
    Selection.TypeText Text:=xlapp.Application.Cells(1, 1).Value
End If
Exit Sub

errhnd:
  MsgBox "Ошибка в формуле !", vbExclamation + vbOKOnly, "Ошибка"

End Sub

[GSerg]

Засунь его в Normal.dot!
И всё!

[sonata]

Да, все получилось!!! Спасибо!!!!