Невозможно правильно получить значение даты из Word Template VB6 Macro - PullRequest
Новая
       12

Невозможно правильно получить значение даты из Word Template VB6 Macro

1 голос
/ 05 марта 2010

Я изменил макросы Word Template 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

Ответы [ 2 ]

0 голосов
/ 23 июня 2010

Старый шаблон был полностью написан на WordBasic, который больше не работает на клиентских компьютерах. Я переписал весь шаблон Word в Visual Basic, который, кажется, решил все проблемы, которые у меня были с ним

0 голосов
/ 05 марта 2010

Не из вашего кода, но я подозреваю, что ActiveDocument.Bookmarks("dob1").Range.Text содержит символы Юникода. Вы можете повторно войти в DOB? Это решает проблему?

...