Обработка текстовых данных Word. "ThisDocument" не является членом "Globals"

Imports Microsoft.Office.Interop.Word
 
Enum ТипАлфавит
    Русский
    Латинский
End Enum
 
Public Class Form1
    Public Sub Form1_Load(sender As Object,
      e As EventArgs) Handles Me.Load
        cmbАлфавит.Text = "Русский"
    End Sub
 
    Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ТекстовыеДанные As КлассТекстовыеДанные = New КлассТекстовыеДанные(Диапазон:=Globals.ThisDocument.Content,
     Алфавит:=Switch(cmbАлфавит.Text = "Русский", ТипАлфавит.Русский,
    cmbАлфавит.Text = "Латинский", ТипАлфавит.Латинский),
      Сортировать:=Switch(rdbПоВозрастанию.Checked, WdSortOrder.wdSortOrderAscending,
     rdbПоУбыванию.Checked, WdSortOrder.wdSortOrderDescending),
     УдалятьОдинаковые:=chbУдалятьОдинаковые.Checked)
 
        ТекстовыеДанные.Обработать()
        ТекстовыеДанные = Nothing
    End Sub
 
 
    Public Sub Закрыть_Click(sender As Object, e As EventArgs) Handles Закрыть.Click
        Close()
    End Sub
End Class
 
Class КлассТекстовыеДанные
        Public Диапазон As Range
    Public Алфавит As ТипАлфавит
    Public Сортировать As WdSortOrder
    Public УдалятьОдинаковые
    Private Документ As Document
    Private Таблица As Table
    Private МаксКолБуквВСловах As Byte
 
 
 
    Sub New(Диапазон As Range,
            Aлфавит As ТипАлфавит,
            Сортировать As WdSortOrder,
            УдалятьОдинаковые As Boolean)
        Me.Диапазон = Диапазон
        Me.Алфавит = Aлфавит
        Me.Сортировать = Сортировать
        Me.УдалятьОдинаковые = УдалятьОдинаковые
    End Sub
 
 
    Sub Обработать()
            МаксКолБуквВСловах = ОпределитьМаксКолБуквВСловах()
        If МаксКолБуквВСловах = 0 Then
            MessageBox.Show("В тексте отсутсвуют искомые слова")
            Exit Sub
        End If
        Документ = Globals.ThisDocument.Application.Documents.Add
            Таблица = Документ.Tables.Add(Документ.Range, 1, 2)
            ЗаписатьВТaблицуПредложения()
        Таблица.Sort(FieldNumber:="столбацам 1", SortOrder:=Сортировать)
        If УдалятьОдинаковые Then УдалитьИзТаблицыПовторяющиесяПредложения()
    End Sub
 
        Public Function ОпределитьМаксКолБуквВСловах() As Byte
 
            Dim m As Byte, n As Byte
            For Each Слово As Range In Диапазон.Words
            If ПринадлежитАлфавиту(Слово) Then
                n = Слово.Text.Trim.Length
                If n > m Then m = n
            End If
        Next Слово
        Return m
        End Function
 
 
    Public Sub ЗаписатьВТaблицуПредложения()
 
        With Таблица
            For Each Предложение As Range In Диапазон.Sentences
                If СодержитДлинноеСлово(Предложение) 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
 
    Public Sub УдалитьИзТаблицыПовторяющиесяПредложения()
        Dim i As Integer = 2
        With Таблица
            Do While i <= .Rows.Count
                If .Cell(i, 1).Range.Text = .Cell(i - 1, i).Range.Text Then
                    .Cell(i - 1, 2).Range.Text = Val(.Cell(i - 1, 2).Range.Text) + 1
                    .Rows(i).Delete()
                Else
                    i += 1
 
                End If
            Loop
        End With
    End Sub
 
    Public Function СодержитДлинноеСлово(Предложение As Range) As Boolean
        For Each Слово As Range In Предложение.Words
            If ПринадлежитАлфавиту(Слово) Then _
            If Слово.Text.Trim.Length = МаксКолБуквВСловах Then Return True
        Next Слово
        Return False
    End Function
 
    Public Function ПринадлежитАлфавиту(Слово As Range) As Boolean
        Dim Шаблон As String = Switch(Алфавит = ТипАлфавит.Русский, "[A-я]",
Алфавит = ТипАлфавит.Латинский, "[A-z]")
        For Each Символ As Range In Слово.Characters
            If Not Символ.Text Like Шаблон Then Return False
        Next Символ
        Return True
    End Function
 
End Class

Imports WindowsApp1
 
Public Class ThisDocument
 
    Dim Форма As Form1
 
    Public Sub ThisDocument_Startup() Handles Me.Startup
        Форма = New Form1
        Форма.Show()
    End Sub
 
 
 
    Public Sub ThisDocument_Shutdown() Handles Me.Shutdown
 
    End Sub
 
    Public Sub ThisDocument_ActivateEvent() Handles Me.ActivateEvent
        Форма.BringToFront()
    End Sub
End Class