Кнопка "Отправить" Код VBA для формы пользователя в Word

Question

Я создавал пользовательскую форму в Microsoft Word, но у меня возникли проблемы с кнопкой отправки. Проблема в том, что я добавляю поле для вставки файла изображения. Я нашел в Интернете код для вставки изображения, но не уверен, что добавить, чтобы изображение вставлялось в документ, когда я нажимаю «Отправить».

Ниже приведен код, который я нашел для вставки изображения. В нем было текстовое поле, поле изображения и кнопка для добавления изображения. Это сработало для вставки изображения, хотя мне не нужно было текстовое поле, показывающее путь к файлу. Но я не знал, как редактировать, где из папки загружается только изображение свободного размера, поэтому используйте это.

Private Sub CMDSUB_Click()
   FormLoadPicture Me.TextBox1, Me.Image1, Me
End Sub

Sub FormLoadPicture(TxtboxToFill As MSForms.TextBox, _
  ImageBox As MSForms.Image, objForm As MSForms.UserForm)
    Dim fd As FileDialog
    Dim PicPath As String

    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .AllowMultiSelect = False
        If .Show = -1 Then
            PicPath = .SelectedItems(1)
            TxtboxToFill.Text = PicPath
            ImageBox.Picture = LoadPicture(PicPath)
        Else: Exit Sub
        End If
    End With
End Sub

Я использую текст, приведенный ниже, для кнопки отправки, чтобы закладки были заполнены. Что мне туда добавить, чтобы изображение было добавлено в документ.

   Private Sub cmdsubmit_Click()
    'Copy form elements to test template from userform
    Dim bmks As Bookmarks
    Dim bmRange As Range
    'Pass the userform values to the document's bookmarks.
Set bmks = ActiveDocument.Bookmarks
Set bmRange = ActiveDocument.Bookmarks("Field01").Range
bmRange.Text = Me.TextBox1.Value
Set bmRange = ActiveDocument.Bookmarks("Field02").Range
bmRange.Text = Me.ComboBox1.Value & " "
     Me.Hide
    End Sub

Необходимо отправить документ в офис.