Word中的宏代码(2)：添加作者信息

软件世界

陈秀峰 · 2004年1月12日

　　目的

　　我们写好稿件后，通常要将自己的联系信息添加到文档中，运行下面的宏可以将定制好的信息一次性插入到光标处。

　　宏代码

　　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，则运行该宏时，系统将自动新建一空白文档，并将定制好的信息输入到文档中，输入完成后将光标移动到第一行的行首，等待你输入正文内容。