Sub Записать()
frmFettle.Show vbModal
End Sub
Sub ОткрытьЗаписнуюКнижку()
frmMain.Show vbModal
End Sub
Sub Вставить()
UserForm1.Show vbModal
End Sub
Sub field_repl()
Dim str1, str2 As String
Dim colzap As Integer
Dim mini As ARINIManager
Dim myRange As Range
If InStr( 1 , UCase(ActiveDocument.FullName), UCase("\text\")) =  0  Then Exit Sub
If Dir$("c:\arm-2\merge.txt") = "" Then Exit Sub
Set mini = New ARINIManager
mini.INIFile = "c:\arm-2\merge.txt"
colzap = mini.Sections.Count
...
End Sub

Compile error: 
User-defined type not defined