Sub Макрос_основной()

' Макрос основной Макрос для электронного журнала
' Макрос записан 21.12.13 - Сравнивает сноски окончательного варианта со сносками первоначального варианта

' Работу начинаем из файла_финиш. Макрос работает с 2-мя файлама: финиш и старт
'
    
    Dim iNext As Integer ' счетчик количества сносок
    Dim finishfile As String ' файл _финиш (в нем окончательный вариант сносок)
    Dim startfile As String ' файл старт (в нем предварительный вариант сносок и сами ссылки в тегах)
    Dim bukva As Integer ' кол-во букв в названии файла (вместе с расширением)
    Dim bukva2 As Integer
    Dim Stroka As String ' Строка с текстом сноски
    Dim Url_stroka As String ' Строка с адресом <li> ... </li> в файле_старт
    Dim Url_text As String ' все сноски из файла_старт
    Dim i As Integer ' Счетчик
    
    bukva = 0
    bukva2 = 0
    finishfile = ""
    startfile = ""
    Stroka = ""
    Url_stroka = ""
    Url_text = ""
    i = 1
    
    
    With ActiveDocument.Range
         MatchWildcards = False
      iNext = 0
         .Find.Execute "^#) "
      Do While .Find.Found ' поиск
         iNext = iNext + 1   ' увеличение счётчика
         .Find.Execute "^#) " ' продолжаем поиск
      Loop
    End With
    
    
    finishfile = ActiveDocument.Name ' начинаем работу в окне файла _финиш
    Windows(finishfile).Activate
    
    
    bukva = Len(finishfile) ' Вычисляем длину в символах названия файла_финиш
    bukva2 = bukva - 10
    startfile = Left(finishfile, bukva2) & "_старт.rtf" ' узнаем имя файла _старт, чтобы потом перейти в окно с этим файлом
    
    Selection.HomeKey Unit:=wdStory ' Перейти в начало документа
    Selection.Find.ClearFormatting
    
    For i = 1 To iNext
    
    With Selection.Find
    .Text = "^#) "    ' Найти текст сноски по номеру в файле_финиш
    .MatchWildcards = False
    End With
    
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Copy
    Stroka = Selection
    
    Windows(startfile).Activate ' Переходим в окно с файлом_старт
    
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
    .Text = "1) "
    .MatchWildcards = False
    End With
    Selection.Find.Execute
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    Selection.Copy
    Url_text = Selection
    
    If InStr(Url_text, Stroka) <> 0 Then
       ' Если сноска из файла_финиш нашлась в файле_старт
    
       Selection.HomeKey Unit:=wdStory ' Перейти в начало документа
       Selection.Find.ClearFormatting
      
       ' Help!
       ' чем бы заменить??? чтоб и длинные строки искала 
       With Selection.Find
        .Text = Stroka
        .MatchWildcards = False
       End With
       '
       '
        
       Selection.Find.Execute
       Selection.MoveDown Unit:=wdLine, Count:=1
    
       With Selection.Find
       .Text = "<li>"
       .MatchWildcards = False
       End With
    
       Selection.Find.Execute
       Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
       Selection.Copy
       Url_stroka = Selection
       
       Windows(finishfile).Activate ' Переходим в окно с файлом_финиш
       
       Selection.MoveDown Unit:=wdLine, Count:=1
       Selection.TypeParagraph
       Selection.Paste
    
    Else
    ' Переходим к следующей сноске
    Windows(finishfile).Activate ' Переходим в окно с файлом_финиш
    With Selection.Font
    .ColorIndex = wdGreen
    End With
    Selection.MoveDown Unit:=wdLine, Count:=1
    
    End If
    
    Next i
    
    Windows(startfile).Activate ' Переходим в окно с файлом_старт
    Selection.MoveDown Unit:=wdLine, Count:=1
    Windows(finishfile).Activate ' Переходим в окно с файлом_финиш

    MsgBox ("Макрос основной завершил работу")

End Sub