Attribute VB_Name = "field_repl"
Sub Записать()
Attribute Записать.VB_Description = "Макрос создан 11.01.2005 ivan"
Attribute Записать.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Записать"
'
' Записать Макрос
' Макрос создан 11.01.2005 ivan
'
frmFettle.Show vbModal
End Sub
Sub ОткрытьЗаписнуюКнижку()
frmMain.Show vbModal
End Sub
Sub Вставить()
Attribute Вставить.VB_Description = "Макрос создан 11.01.2005 ivan"
Attribute Вставить.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Вставить"
'
' Вставить Макрос
' Макрос создан 11.01.2005 ivan
'
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
If colzap =  0  Then Exit Sub
i =  1 
Set myRange = ActiveDocument.Content
While i <= colzap
    str1 = Trim(mini.Sections(i).Name)
    str1 = Replace(str1, "  ", " ")
    str2 = Trim(mini.GetValue(mini.Sections(i).Name, "val", "?????"))
    str2 = Replace(str2, "  ", " ")
    With myRange.Find
        .Forward = True
        .MatchCase = False
        .Wrap = wdFindContinue
        .Text = str1
        .Replacement.Text = str2
        .Execute Replace:=wdReplaceAll
    End With
    i = i +  1 
Wend
'MsgBox "Произведено замен - " & CStr(i - 1)
Set mini = Nothing
If Dir$("c:\arm-2\merge.txt") <> "" Then
    Kill "c:\arm-2\merge.txt"
End If
Selection.HomeKey
End Sub