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

我修改了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

---

不是来自您的代码，但我怀疑

ActiveDocument.Bookmarks（“dob1”）.Range.Text

包含Unicode字符。你能重新输入DOB吗？这解决了问题吗？

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

旧模板完全是用WordBasic编写的，在客户端的计算机上似乎不再起作用。我用VisualBasic重写了整个Word模板，这似乎解决了我遇到的所有问题。