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