在Word中指定位置插入当前时间

1、引用word对象
2、在word指定位置
3、插入当前时间Now
Dim myword As Object, mydocument As Object, myrange As Object, mytable As Object
    Set myword = CreateObject("Word.Application")   '创建word对象
    Set mydocument = myword.Documents.Add           '新增word文档
    Set myrange = mydocument.Range(0, 0)            '将光标定位在第一行第一位
    With myword
        .Visible = True                                       '可见
        myrange.Paragraphs.Alignment = wdAlignParagraphCenter '段落居中对齐
        myrange.InsertAfter Now                               '然后插入当前时间
    End With