从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