Word中添加作者信息的宏代码

　　宏代码
　　Sub dzxx()
　　Selection.TypeText Text:="作者姓名：XXX"
　　Selection.TypeParagraph
　　Selection.TypeText Text:="通讯地址：XXX"
　　Selection.TypeParagraph
　　Selection.TypeText Text:="邮政编码：XXX"
　　Selection.TypeParagraph
　　Selection.TypeText Text:="电子信箱：XXX"
　　End Sub

　　说明
　　①宏名“dzxx”可以随意修改。
　　②在实际使用中，请将代码中的“XXX”字符替换成你所要输入的字符。
　　进阶
　　如果在“Sub dzxx()”下面添加两行代码：Set myDoc=Documents.Add和Selection.TypeParagraph，在“End Sub”上面添加一行代码：Selection.MoveUp Unit:=wdScreen，Count:=1，则运行该宏时，系统将自动新建一空白文档，并将定制好的信息输入到文档中，输入完成后将光标移动到第一行的行首，等待你输入正文内容。