"添加到从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