无法从Word模板VB6宏中正确检索日期值

Question

我已经修改了Word模板的VB6宏来检索出生日期字段。不幸的是，当检索到值时，它有一个字符串值，前缀是一个小方块和许多我看起来不能修剪的右填充空格(例如。"1/3/57 ")。

在座的任何人都能看到问题出在哪里吗？这是代码-

If ActiveDocument.Bookmarks.Exists("dob1") = True Then
    personDOB = Mid(ActiveDocument.Bookmarks("dob1").Range.Text, 10, Len(ActiveDocument.Bookmarks("dob1").Range.Text))
    personDOB = Trim$(offenderDOB)
End If

If Not IsDate(personDOB) Then    
    Msg = "Error: Please enter an Person Date of Birth with the format dd/mm/yyyy or leave blank"
    Response = MsgBox(Msg, vbOKOnly, BadgeTitle)
End If

Answer 1

旧的模板完全是用WordBasic编写的--它似乎不再能在客户端计算机上运行了。我用Visual Basic重写了整个Word模板，这似乎解决了我使用它时遇到的所有问题

Answer 2

不是来自您的代码，但我怀疑ActiveDocument.Bookmarks("dob1").Range.Text包含Unicode字符。你能重新进入道布吗？这能解决问题吗？