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

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

Answer 2

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

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

2 个答案: