Надстройка на уровне приложения

Imports Microsoft.Office.Interop.Word
Imports System.Windows.Forms
 
 
Public Class Form1
    Public docs As Document
    ' 
    Public Sub Form1_Load(sender As Object,
    e As EventArgs) Handles Me.Load
    End Sub
 
 
    Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim word As Application = New Application()
        'Application импортированный из пространства имен или типов  Microsoft.Office.Interop.Word, System.Windows.Forms
        'является неоднозначным
        word.Documents.Add()
        word.Visible = True
        Dim ТекстовыеДанные As КлассТекстовыеДанные = New КлассТекстовыеДанные(word.ActiveDocument)
        ТекстовыеДанные.Диапазон = docs.Content
        ТекстовыеДанные.Обработать()
        ТекстовыеДанные = Nothing
    End Sub
 
 
    Public Sub Закрыть_Click(sender As Object, e As EventArgs) Handles Закрыть.Click
        Close()
    End Sub
 
End Class
 
Class КлассТекстовыеДанные
    Public Диапазон As Range
    Private Документ As Document
    Private Таблица As Table
    Sub New(Документ As Document)
        Me.Документ = Документ
        Me.Диапазон = Документ.Content
    End Sub
 
    Sub Обработать()
        Таблица = Документ.Tables.Add(Документ.Range, 1, 2)
        Таблица.Style = "Сетка таблицы"
        ЗаписатьВТaблицуПредложения()
    End Sub
 
 
 
    Public Sub ЗаписатьВТaблицуПредложения()
        With Таблица
            For Each Предложение As Range In Диапазон.Sentences
 
                Dim flag = True
                For I = 1 To Таблица.Rows.Count
                    If (Таблица.Cell(I, 1).Range.Text = Предложение.Text.Trim & vbCr & ChrW(7)) Then
                        Таблица.Cell(I, 2).Range.Text = CInt(Replace(Replace(Таблица.Cell(I, 2).Range.Text, vbCr, ""), ChrW(7), "").Trim()) + 1
 
                        flag = False
 
                        Exit For
                    End If
                Next
 
                If (flag) Then
                    .Cell(Таблица.Rows.Count, 1).Range.Text = Предложение.Text.Trim
                    .Cell(Таблица.Rows.Count, 2).Range.Text = 1
                    .Rows.Add()
                End If
            Next
            Таблица.Rows.Last.Delete()
        End With
    End Sub
End Class