Не могу справиться с Padeg.dll

[LAnLorD]

Никак не могу справиться с библиотекой Padeg.dll
http://www.delphikingdom.com/asp/vie...?catalogid=412

В комплекте библиотеки присутствует пример для VBA Excel
в котором реализовано обращение к библиотеке для склонения ФИО
и указано, что "Обращение к другим функциям выполняется аналогично".

Как ни бился сделать не смог (((

Если не трудно помогите пожалуйста
Интересуют функции:
GetAppointmentPadeg
GetFullAppointmentPadeg
GetOfficePadeg

[LAnLorD]

Неужели никто не знаком с библиотекой?

[SAS888]

А в чем, собственно, проблема?
У Вас эта библиотека установлена и зарегистрирована?
Посмотрите во вложении пример использования. Там же есть авторский doc-файл с инструкциями по применению.

P.S. На Win7 не проверял.

[LAnLorD]

Проблема в том что со склонением ФИО все понятно и работает, но не получается "по аналогии" написать обращение к функциям, выполняющие склонение должностей и подразделений. А именно для функций:
GetAppointmentPadeg
GetFullAppointmentPadeg
GetOfficePadeg

Проще говоря как это:

' Функция склонения ФИО с автоматическим определением пола по отчеству
' Параметры: pFIO    - фамилия, имя, отчество
'            nPadeg  - падеж (допустимые значения: 1..6)
'            pResult - буфер результата
'            nLen    - размер буфера (после преобразования - длина результата)
' Значение:  0 - успешное завершение
'           -1 - недопустимое значение падежа
'           -3 - результат не поместился в буфере

Private Declare Function GetPadeg Lib "Padeg.dll" Alias "GetFIOPadegFSAS" _
  (ByVal pFIO As String, ByVal nPadeg As Long, ByVal pResult As String, ByRef nLen As Long) As Integer

' Функция преобразования cFIO в падеж nPadeg
Public Function MakePadeg(ByVal cFIO As String, ByVal nPadeg As Long) As String
Dim tmpS As String
Dim nLen As Long
Dim RetVal As Integer
  If Len(cFIO) = 1 Then Exit Function
  nLen = 255
  tmpS = String(nLen, 0)
  RetVal = GetPadeg(cFIO, nPadeg, tmpS, nLen)
  If RetVal = -1 Then MsgBox "Недопустимое значение падежа - " & "(" & nPadeg & ")", , "Склонение ФИО"
  MakePadeg = Mid(tmpS, 1, nLen)
End Function


' Макросы преобразования ФИО в активной ячейке в соответствующий падеж

Public Sub p1Именительный()
  Cells(ActiveCell.Row, ActiveCell.Column) = Nominative(ActiveCell)
End Sub

Преобразовать для реализации склонения должности.

[SAS888]

Вы инструкцию прочитали?
Давайте так:
Прикрепите файл, в 1-м столбце которого - исходные данные, во 2-м - те, которые Вы хотите получить. тогда будем разбираться.

[LAnLorD]

Инструкцию читаю уже неделю подряд, но каменный цветок никак не выходит.

1-я строчка прекрасно делается макросом склонения
2-я и является проблемой

[SAS888]

посмотрите вложение. Будьте внимательны: там в ячейках "B1" и "B2" - разные функции.

[LAnLorD]

Гениально!

Огромное спасибо. Работает просто замечательно.
Пара вопросов по вашему методу реализации: не поскажете как прописать справку по новой функции и сделать так чтобы она искалась по поиску функций?

[SAS888]

Написать справку по пользовательской функции не так уж просто. Сам я этого не делал. А что касается поиска, то я не совсем понял о чем речь. Эти функции есть в списке функций. Воспользуйтесь либо "Полным алфавитным списком", либо просто войдите в категорию "Определенные пользователем".

[LAnLorD]

Поиск в том смысле, что если в поиск функций вписать "Падеж", то получим "Пожалуйста, перефразируйте свой вопрос."

Таким образом новую функцию можно лишь найти по перечню, но не через поиск.

Но это не столь важно - главное что все работает. Еще раз Спасибо.