439,440とは別人だけど、ファイルを別名コピー時、日付挿入したい時があって
その時に使えると便利そうだったので、少し改造してみた。
設定はこんな感じで。
K_edit = {
^D ,*insert %*script(%0StrDateTimeNow.vbs,"yyyymmdd_hhmmss")
}
----
'!*script
' 現在の日付時刻文字列を返す
Option Explicit
Dim wkNow

If PPx.Arguments.Count = 0 Then
wkNow = "yyyymmdd_hhmiss"
Else
wkNow = PPx.Arguments.Item(0)
End If

wkNow = Replace(wkNow, "yyyy", Year(Now()) )
wkNow = Replace(wkNow, "yy", Right(Year(Now()),2) )
wkNow = Replace(wkNow, "mm", Right("0" & Month(Now()), 2) )
wkNow = Replace(wkNow, "m", Month(Now()) )
wkNow = Replace(wkNow, "dd", Right("0" & Day(Now()), 2) )
wkNow = Replace(wkNow, "d", Day(Now()) )
wkNow = Replace(wkNow, "hh", Right("0" & Hour(Now()) , 2) )
wkNow = Replace(wkNow, "mi", Right("0" & Minute(Now()) , 2) )
wkNow = Replace(wkNow, "ss", Right("0" & Second(Now()) , 2) )

PPx.result = wkNow