"добавлено в начало строки при извлечении слов из таблицы MS Word

Question

Я извлекаю значения из таблицы слов, сравнивая их с несколькими вариантами, используя оператор IF. У меня проблема в том, что Word добавляет к началу строки, взятой из Word, цитату. Я пытался удалить CHR, но это не работает.

Я сократил код, чтобы выделить проблему.

Я пытался удалить CHR и разделить первый Chr, но это не работает. Эта проблема не возникает, когда он набирает номер.

Option Explicit

Public Sub Minbody()

     Dim check(1 To 1000, 1 To 1000) As Variant '''''''''''''''''''''
     Dim Actionitem(1 To 1000) As Variant


     check(1, 1) = ActiveDocument.Bookmarks("PTable").Range.Tables(1).Cell(3, 5)


    check(1, 1) = Replace(check(1, 1), Chr(7), "") '<<< remove end of cell marker



            If check(1, 1) = "NA" Then

            MsgBox check(1, 1)

            Actionitem(1) = check(1, 1)

            Else
            End If

End Sub

Answer 1

Public Sub Minbody()
     Dim check(1 To 1000, 1 To 1000) As Variant
     Dim Actionitem(1 To 1000) As Variant

With ActiveDocument.Bookmarks("PTable").Range.Tables(1).Cell(3, 5).Range
    check(1, 1) = Left(.Text, Len(.Text) - 2)
End With

If check(1, 1) = "NA" Then
    MsgBox check(1, 1)
    Actionitem(1) = check(1, 1)
End If
End Sub