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

软件世界

陈秀峰 · 2004年2月16日

　　目的

　　将文档的一些信息，如创建时间、文章字数、文章页数等，插入到光标处。

　　宏代码

　　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”，请朋友们参阅有关域的帮助文件。

　　④仿照上面的代码格式，可以将其他域代码添加到宏代码中，以完成更多文档信息的插入。