Помогите написать макрос для Word

Option Explicit
Public Sub ConvertDictionaryFromParagraphsToTable()
Dim CurRange As Range, CurPara As Paragraph
Dim Source As Document, DestDoc As Document, DestCell As Cell
Dim i As Long, Total As Long, FirstCaption As String, Ready As Long, LastReady As Long
    Set Source = Application.ActiveDocument
    FirstCaption = Source.Windows(1).Caption
    If InStr('(', FirstCaption) Then FirstCaption = Left$(FirstCaption, InStr('(', FirstCaption) - 1)
    ' иначе если было '(только для чтения)' , то после отработки будет '(только для чтения)(только для чтения)'
    Set DestDoc = Application.Documents.Add
    Total = Source.Paragraphs.Count
    DestDoc.Range.Tables.Add DestDoc.Range, Total + 1, 2
    Set DestCell = DestDoc.Range.Tables(1).Rows(1).Cells(1)
    DestCell.Range.Text = 'Английское словосочетание'
    DestCell.Range.Font.Bold = True
    Set DestCell = DestCell.Next
    DestCell.Range.Text = 'Его перевод'
    DestCell.Range.Font.Bold = True
    i = 0
    For Each CurPara In Source.Paragraphs
        i = i + 1
        Set CurRange = CurPara.Range
        CurRange.Collapse wdCollapseStart
        With CurRange.Find
            .ClearFormatting
            .MatchWholeWord = False
            .Format = True
            .Font = CurRange.Font
            .Wrap = wdFindStop
            .Execute
        End With
        Set DestCell = DestCell.Next
        DestCell.Range.Text = CurRange.Text
        CurRange.Collapse wdCollapseEnd
        CurRange.MoveEndUntil Chr(13), wdForward
        Set DestCell = DestCell.Next
        DestCell.Range.Text = CurRange.Text
        If (i And &HF) = &HF Then
            DoEvents
            ' Здесь должен быть код проверки нажатия на 'Cancel'
            ' и в случае нажатия аварийного завершения цикла
            ' также здесь могут и должны быть проверки на закрытие
            ' и изменение источника в Word 2000 и выше (97 не поддерживает)
            Ready = i * 100  Total
            If (Ready <> LastReady) Then
                Source.Windows(1).Caption = '{' & LTrim$(Str$(Ready)) & '% - DictionaryToTable}' & FirstCaption
                LastReady = Ready
            End If
        End If
    Next
    Source.Windows(1).Caption = FirstCaption
    DestDoc.Activate
End Sub