Использование Excel VBA, чтобы открыть файл DOCX и использовать функцию замены для текста внутри таблицы

Question

У меня есть код Excel VBA, который в настоящее время может открыть документ Word. Я хотел бы, чтобы код заменил «1» на строку, полученную из текстового поля форума пользователя (Приоритет).

Текущие вещи, которые код не может сделать, и мне нужна некоторая помощь:

1. Поиск по всему документу для текста / я не уверен, что он даже ищет текст в данный момент, но ничего не меняется в документе после его открытия.
2. не может взять жалоинформация из текстового поля в пользовательской форме (имя) = Приоритет

3. После того, как я поработаю с предыдущими изменениями, я хочу иметь возможность сохранить как файл в определенную пользователем строку для имени файла.

   Private Sub CommandButton1_Click()
   
   Dim Test As String
   Cells(6, 1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
   Cells(6, 1).Value = Priority.Value
   Cells(6, 2).Value = "Working On"
   Cells(6, 3).Value = Contact.Value
   Cells(6, 4).Value = CurrentTask.Value
   Cells(6, 7).Value = DueDate.Value
   
   
   Dim Doc
   Dim DocPath
   Dim DocObj
   Dim VarResult
   
   Test = "Test File"
   DocPath = "C:\Users\cmancuso\Desktop\Cmancuso\Meeting Minutes\Task List Notes\Task Notes.docx"
   Set DocObj = CreateObject("word.application")
   Set Doc = DocObj.Documents.Open(DocPath)
   DocObj.Visible = True
   
   With Doc.Content.Find
           .Text = "1"
           .Replacement.Text = "2"
           .Forward = True
           .Wrap = wdFindContinue
           .Format = False
           .MatchCase = False
           .MatchWholeWord = False
           .MatchWildcards = False
           .MatchSoundsLike = False
           .MatchAllWordForms = False
       End With
       .Execute Replace:=wdReplaceAll
   End Sub
   

Извините, если форматирование поста неверное, это мой первый пост на stackoverflow. Я новичок в кодировании и не ищу здесь самый элегантный код, просто работающий. Спасибо всем!