Excel到Word VBA时间不正确

Question

我有一个宏，可以将某些值从excel复制到word文档，

Sub NoFormatTimePaste(timeValue As String)

wdFind.Replacement.Text = ""
wdFind.Forward = True
wdFind.Wrap = wdFindContinue
wdFind.Execute
appWd.Selection.Delete
appWd.Selection.InsertAfter Format(timeValue, "h:mm AM/PM")

End Sub

Dim timeValue As String
timeValue = Cells(Application.ActiveCell.Row, 4).Select
wdFind.Text = "QTIMEQ"
Call NoFormatTimePaste(timeValue)

但它没有正确插入时间。 在我的Excel工作表中，时间以24小时格式写入，例如10：30,12：00,15：20,17：45。 但是，无论用Excel编写的时间如何，插入到Word文档中的每个值都是12:00 AM。

Excel Value        Word Value
10:30              12:00 AM
12:00              12:00 AM
15:20              12:00 AM
17:45              12:00 AM

有谁知道为什么会这样？