在文档中插入创建时间、字数、页数等信息

　　宏代码
　　Sub wdxx()
　　Selection.TypeText Text:="创建时间："
　　Selection.Fields.Add Range:=Selectio
　　n.Range, Text:="INFO CreateDate"
　　Selection.TypeParagraph
　　Selection.TypeText Text：="文章字数："
　　Selection.Fields.Add Range:=Selectio
　　n.Range, Text：="NUMWORDS"
　　Selection.TypeParagraph
　　Selection.TypeText Text:="文章页数："
　　Selection.Fields.Add Range:=Selectio
　　n.Range, Text:="NUMPAGES"
　　End Sub

　　说明
　　①代码中的中文字符，如“创建时间”等，可以根据需要修改。
　　②代码“Selection.TypeParagraph”表示换行。
　　③代码中域代码的含义，如“INFO CreateDate”，请朋友们参阅有关域的帮助文件。
　　④仿照上面的代码格式，可以将其他域代码添加到宏代码中，以完成更多文档信息的插入。