WizHook.Key =  51488399 

Sub wzAccessUserDataDir()
    
    WizHook.Key =  51488399 
    Debug.Print WizHook.AccessUserDataDir
    
End Sub

WizHook.AccessWizFilePath("Acwzmain.mde")

Sub AnalizeQuery()
  Dim resultString As String
  Dim resultLong As Long
  Dim tArr
   'WizHook.Key = 51488399
 
  resultLong = WizHook.AnalyzeQuery(DBEngine( 0 ), DBEngine( 0 )( 0 ), "ЖурналУчета", resultString)
  tArr = Split(resultString, Chr( 1 ))
  If Len(resultString) >  0  Then
    For resultLong =  0  To UBound(tArr)
      Debug.Print tArr(resultLong)
    Next
  End If
End Sub

Sub wzNameAndArgsOfActid()
   Dim wzActid As Integer
   Dim NombreAccion As String
    
    WizHook.Key =  51488399 
     ' в "первоисточниках" цикл от 1 до 62
 
    For wzActid =  1  To  65 
        NombreAccion = WizHook.NameFromActid(wzActid)
        If NombreAccion <> "" Then
            Debug.Print "ИД действия"; wzActid; "Действие: "; NombreAccion
            Debug.Print "- к-во аргументов: "; _
                WizHook.ArgsOfActid(wzActid)
        End If
    Next

End Sub

Sub wzBracketString()
Dim wzStr0 As String
Dim wzStr1 As String
Dim wzStr2 As String

    
    WizHook.Key =  51488399 
    
    wzStr0 = "Forms!Имя формы с пробелами.Text1"
    wzStr1 = "Forms!Имя формы с пробелами.Text1"
    wzStr2 = "Forms!Имя формы с пробелами.Text1"
            
    Debug.Print WizHook.BracketString(wzStr0,  0 ), wzStr0
    Debug.Print WizHook.BracketString(wzStr1,  1 ), wzStr1
    Debug.Print WizHook.BracketString(wzStr2,  2 ), wzStr2
    
    Debug.Print
    
    wzStr0 = "Forms!ИмяФормыБезПробелов.Text1"
    wzStr1 = "Forms!ИмяФормыБезПробелов.Text1"
    wzStr2 = "Forms!ИмяФормыБезПробелов.Text1"
    
    Debug.Print WizHook.BracketString(wzStr0,  0 ), wzStr0
    Debug.Print WizHook.BracketString(wzStr1,  1 ), wzStr1
    Debug.Print WizHook.BracketString(wzStr2,  2 ), wzStr2
    
End Sub

Sub getVBEProject()
  Dim tObj
  WizHook.Key =  51488399 
  Set tObj = WizHook.DbcVbProject
  
End Sub

Sub wzEnglishPictToLocal()
Dim wzIn( 16 ) As String
Dim wzOut As String
Dim i As Integer

    WizHook.Key =  51488399 
    
    sIn( 0 ) = "General Date"
    sIn( 1 ) = "Long Date"
    sIn( 2 ) = "Medium Date"
    sIn( 3 ) = "Short Date"
    sIn( 4 ) = "Long Time"
    sIn( 5 ) = "Medium Time"
    sIn( 6 ) = "Short Time"
    sIn( 7 ) = "General Number"
    sIn( 8 ) = "Currency"
    sIn( 9 ) = "Euro"
    sIn( 10 ) = "Fixed"
    sIn( 11 ) = "Standard"
    sIn( 12 ) = "Percent"
    sIn( 13 ) = "Scientific"
    sIn( 14 ) = "True/False"
    sIn( 15 ) = "Yes/No"
    sIn( 16 ) = "On/Off"
    
    For i =  0  To  16 
        WizHook.EnglishPictToLocal sIn(i), sOut
        Debug.Print sIn(i) & ": " & sOut
    Next
        
End Sub

Sub wzFirstDbcDataObject()
Dim wzName As String
Dim wzObjType As Long
Dim wzAttribs As Long

Const wzNormal =  0 
Const wzHidden =  8 
Const wzLinked =  2097152 

    WizHook.Key =  51488399 

    WizHook.FirstDbcDataObject wzName, wzObjType, _
                               wzAttribs
    Debug.Print "Имя: " & wzName
    Debug.Print "Тип: " & iif(wzObjType =  0 , "Таблица", _
                               "Запрос")
    
    Debug.Print "Атрибуты:",
    If (wzAttribs And wzNormal) = wzNormal Then
        Debug.Print "Обычный",
    End If
    If (wzAttribs And wzHidden) = wzHidden Then
        Debug.Print "Скрытый",
    End If
    If (wzAttribs And wzLinked) = wzLinked Then
        Debug.Print "Звязанный объект"
    End If
    
End Sub

Sub wzFullPath()
Dim wzRelativePath As String
Dim wzFPath As String

    WizHook.Key =  51488399 
    
    wzRelativePath = "NewFolder/file.ext"
    WizHook.FullPath wzRelativePath, wzFPath
    Debug.Print wzFPath
    
End Sub

Sub wzCol()
  Dim sRet  As String
  WizHook.Key =  51488399 
  sRet = WizHook.GetColumns("vec_hist")
End Sub

Sub wzGetFileName()
Dim wzhwndOwner As Long
Dim wzAppName As String
Dim wzDlgTitle As String
Dim wzOpenTitle As String
Dim wzFile As String
Dim wzInitialDir As String
Dim wzFilter As String
Dim wzFilterIndex As Long
Dim wzView As Long
Dim wzflags As Long
Dim wzfOpen As Boolean
Dim ret As Long
    
    WizHook.Key =  51488399 
    
    wzhwndOwner =  0 &
    wzAppName = ""
    wzDlgTitle = "Cuadro de diбlogo con WizHook"
    wzOpenTitle = "Abrir con Wz"
    wzFile = String( 255 , Chr( 0 ))
    wzInitialDir = ""
    wzFilter = "Archivos grбficos " _
    & "(*.wmf;*.emf;*.dib;*.bmp;*.ico;" _
    & "*.pcx;*.pcx;*.jpg;*.gif;*.png)"
    wzFilterIndex =  1 
    wzView =  1 
    wzflags =  64 
    wzfOpen = True

    ret = WizHook.GetFileName(wzhwndOwner, _
        wzAppName, wzDlgTitle, wzOpenTitle, wzFile, _
        wzInitialDir, wzFilter, wzFilterIndex, _
        wzView, wzflags, wzfOpen)
        
 ' Проверим, не произошел ли возврат в результате нажатия клавиши Esc (-302)
 
    If ret <> - 302  Then
        MsgBox "Выбран файл: " & wzFile
    End If

End Sub

 ' API для закрытия макроса в памяти
 
Private Declare Sub fCloseHscr _
            Lib "msaccess.exe" _
            Alias "#20" _
            (ByVal HScr As Long)
            
 ' API для перехода к строке макроса
 
Private Declare Function fNextHscr _
            Lib "msaccess.exe" _
            Alias "#22" _
            (ByVal HScr As Long, _
            ByVal fSkipBlank As Long, _
            pfEndOfScript As Long) As Long
            
 ' API для получения действия, соответствующего строке макроса
 
Private Declare Function ActidOfHscr _
            Lib "msaccess.exe" _
            Alias "#29" _
            (ByVal HScr As Long) As Long

Sub wzGetScriptString()
Dim hMacro As Long
Dim wzScript As String
Dim wzLabel As String
Dim wzOpenMode As Long
Dim wzExtra As Long
Dim wzVersion As Long
Dim mAction As Variant
Dim mLabel As String
Dim mComment As String
Dim mCondition As String
Dim mArgument As String
Dim EndOfScript As Long

     ' Имя макроса
 
    wzScript = "Пример макроса"
     ' способ чтения
 
    wzOpenMode =  0 
    
    WizHook.Key =  51488399 
     ' Читаем макрос
 
    hMacro = WizHook.OpenScript(wzScript, _
        wzLabel, wzOpenMode, wzExtra, wzVersion)
     ' Позиционируемся для работы в обратном порядке
 
    fNextHscr hMacro,  0 &, EndOfScript
     ' Значение для действия
 
    mAction = ActidOfHscr(hMacro)
     ' передаем значение по цепочке
 
    mAction = WizHook.NameFromActid(mAction)
     ' значение столбца Имя макроса
 
    WizHook.GetScriptString hMacro,  0 &, mLabel
     ' значение столбца Комментария
 
    WizHook.GetScriptString hMacro,  1 &, mComment
     ' значение столбца условия
 
    WizHook.GetScriptString hMacro,  2 &, mCondition
     ' значение первого аргумента для действия
 
    WizHook.GetScriptString hMacro,  3 &, mArgument
    
    Debug.Print "Имя макроса:", mLabel
    Debug.Print "Условие:", mCondition
    Debug.Print "Действие:", mAction
    Debug.Print "Комментарий:", mComment
    Debug.Print "1-ый аргумент:", mArgument

End Sub