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

Sub wzGlobalProcExists()

    WizHook.Key =  51488399 
    Debug.Print WizHook.GlobalProcExists("wzEnglishPictToLocal")
    Debug.Print WizHook.GlobalProcExists("wzGlobalProcExists")
End Sub

Sub wzIsValidIdent()

    WizHook.Key =  51488399 
    
    
    Debug.Print WizHook.IsValidIdent("нормальная_переменная")
    Debug.Print WizHook.IsValidIdent("_нормальная_переменная")
    Debug.Print WizHook.IsValidIdent("нормальная переменная")    
    
End Sub

Sub wizLeaksTest()
  WizHook.Key =  51488399 
  WizHook.KnownWizLeaks True
  
End Sub

Sub wzLocalFont()

    WizHook.Key =  51488399 
    Debug.Print WizHook.LocalFont
    
End Sub

Sub wzObjTypOfRecordSource()
    Dim tipo As Integer

    WizHook.Key =  51488399 
    
    Debug.Print WizHook.ObjTypOfRecordSource _
                       ("SELECT * FROM Tabla1")
    Debug.Print WizHook.ObjTypOfRecordSource("Tabla1")
    Debug.Print WizHook.ObjTypOfRecordSource("Consulta1")

End Sub

Sub wzOfficeAddInDir()

    WizHook.Key =  51488399 
    Debug.Print WizHook.OfficeAddInDir
    
End Sub

Private Declare Sub fCloseHscr _
            Lib "msaccess.exe" _
            Alias "#20" (ByVal HScr As Long)

Sub wzOpenScript()
Dim hMacro As Long
Dim wzScript As String
Dim wzLabel As String
Dim wzOpenMode As Long
Dim wzExtra As Long
Dim wzVersion As Long

    wzScript = "Clientes"
    wzOpenMode =  0 

    WizHook.Key =  51488399 
    hMacro = WizHook.OpenScript(wzScript, _
        wzLabel, wzOpenMode, wzExtra, wzVersion)
        
    fCloseHscr hMacro
    
End Sub

Private Declare Function api_Macro_NextRow Lib "msaccess.exe" Alias "#22" _
    (ByVal hMacro As Long, ByVal lSkipBlank As Long, lEndOfMacro As Long) As Long
Private Declare Function api_Macro_GetActID Lib "msaccess.exe" Alias "#29" (ByVal hMacro As Long) As Long

Public Function DisplayMacro(sMacroName As String)
    Dim sLabel As String
    Dim lOpenMode As Long
    Dim lExtra As Long
    Dim lVersion As Long
    Dim lHmacro As Long
    Dim lScriptColumn As Long
    Dim sValue( 12 ) As String
    Dim lActNum As Long
    Dim lActID As Long
    Dim lMacroRow As Long
    Dim bEndOfMacro As Boolean
    
    lOpenMode =  0 &
    lHmacro = WizHook.OpenScript(sMacroName, sLabel, lOpenMode, lExtra, lVersion)
    
    If (lHmacro) Then
        Debug.Print "Hscr: " & lHmacro &  "Macro Name: " & sMacroName
        Debug.Print "Label: " & sLabel &  "Open Mode: " & lOpenMode
        Debug.Print "lExtra: " & lExtra &  "lVersion: " & lVersion
    Else
        Debug.Print "Failed to get handle"
        Exit Function
    End If
    
    lMacroRow =  0 
    Do While Not (bEndOfMacro)
        Call api_Macro_NextRow(lHmacro, False, False)
        lActID = api_Macro_GetActID(lHmacro)
        
        If (lActID <> - 1 ) Then
            Debug.Print "Row: " & lMacroRow & vbTab & "Action: " & WizHook.NameFromActid(lActID)
            For lScriptColumn =  0  To  12 
                Call WizHook.GetScriptString(lHmacro, lScriptColumn, sValue(lScriptColumn))
                Debug.Print "ScriptColumn: " & lScriptColumn & vbTab & "Value: " & sValue(lScriptColumn)
            Next lScriptColumn
            lMacroRow = lMacroRow +  1 
        Else
            bEndOfMacro = True
        End If
    Loop
    
End Function

 'API of Access 
 
 ' Для закрытия макроса
 
 Private Declare Sub fCloseHscr _ Lib "msaccess.exe" _
 20  Alias "#" _ (ByVal HScr Ace Long)

 ' для перехода к следующей строке макроса
 
Private Declare 
Function fNextHscr _ Lib "msaccess.exe" _  22  Alias "#" _ (ByVal HScr 
Ace Long, _ ByVal fSkipBlank Ace Long, _ pfEndOfScript Ace Long) Ace 
Long

 ' для записи значения действия в макрос
 
 Private Declare Function fSaveActidHscr _ Lib 
"msaccess.exe" _  25  Alias "#" _ (ByVal HScr Ace Long, _ ByVal actid 
Ace Long) Ace Long Sub wzSaveScriptString() Dim hMacro Ace Long Dim 
wzScript Ace String Dim wzLabel Ace String Dim wzOpenMode Ace Long Dim
wzExtra Ace Long Dim wzVersion Ace Long Dim EndOfScript Ace Long

     ' имя макроса
 
    wzScript = 
"Macro of example"
     ' собираемся открывать на запись
 
    wzOpenMode =  2 & 
    WizHook.Key =  51488399 
     ' открываем на запись
 
    hMacro = 
WizHook.OpenScript(wzScript, _ wzLabel, wzOpenMode, wzExtra, 
wzVersion) If hMacro <>  0  Then
         ' позиционируемся на конец
 
        fNextHscr hMacro,  0 &, EndOfScript
         ' записываем действие  ("MsgBox")
 
        fSaveActidHscr  hMacro,  22 &
         ' оформим столбец "Имя макроса"
 
        WizHook.SaveScriptString _ hMacro,  0 &, 
"Example of label"
         ' оформим столбец комментариев
 
        WizHook.SaveScriptString _ hMacro, 
 1 &, "Example of commentary"
         ' оформим столбец условий
 
        WizHook.SaveScriptString _ 
hMacro,  2 &, "..."
         ' пишем строку в столбец аргументов. Ее будет отображать MSGBOX 
 
WizHook.SaveScriptString _ 
hMacro,  3 &, "Example of creation of" _ & "macro and writing of values"
End If
      
     ' закрываем макрос. После этого изменения станут доступны
 
    fCloseHscr hMacro End 
Sub

Sub wzSetVbaPassword() 
  Dim wzDBName as String 
  Dim wzConnect as String
  Dim wzPasswd ase String 

  WizHook.Key =  51488399  
  wzDBName = "c:\base_datos.mdb" 
  wzConnect = "" wzPasswd = "password" 

  Debug.Print WizHook.SetVbaPassword(_ wzDBName, wzConnect, wzPasswd) 
End Sub

Public Function WH_Test()
    Dim a( 3 ) As String
    Dim i As Integer
    
    a( 0 ) = "zulu"
    a( 1 ) = "alpha"
    a( 2 ) = "gamma"
    a( 3 ) = "delta"
    
    WizHook.SortStringArray a()
    
    For i =  0  To  3 
        Debug.Print a(i)
    Next
    
End Function