如意日记本
WORD为了方便写文章，引入了“文章模板”的概念，所谓文章模板就是一个文章的框架，它具有一类文章的公共部分，如：单位名称、版权说明、图片、文章各部分的相对位置、字体大小风格以及各种用户自定义宏等等。在用模板创建文件的时候Word会将模板中的文字和图形插入到新文件中。WORD提供了数十种文章模板，分别适合在不同的场合下使用。为了方便写日记以及保存自己编写的宏程序，我们必须建立自己的日记本模板。建立模板的过程是：
1.在“文件”菜单中，选择“新建”命令(ALT，F，N)。
2.在“新建”选项框中，按“模板”按钮。
3.按“确定”按钮。
4.根据自己的受好，为新的模板设置各种特性。比如：添加固定的文字或图形，设置整页布局和字符格式，创建新的样式，修改键值或菜单，定义图文集词条等。
然后再编写3个可以自动运行的WORD BASIC程序，正是有了这3个小程序，我才有了变化丰富的日记本。这三个程序的名字必须是Autonew、Autoopen、AUtoclose，它们分别在WORD新建、打开、关闭使用这个模板的文件时被执行。录入程序的方法是：
在“工具”菜单中，选择“宏”命令(ALT，0，M)
在宏名框中键入宏名，然后按“编辑”按钮，再在随后出现的窗口中键入程序(“Sub MAIN”及“End Sub”由WORD提供，不需自己键入)。
5.从“文件”菜单中，选择“保存”命令(ALT，F，S)。
6.在“文件名”框中，键入模板名称。
除非指定其它位置，Word中所有文章模板以扩展名为DOT的文件保存在Word所在的目录中。另外在“模板”上设置的密码对随后建立的文件并不保险，对方只要把此文件所依赖的模板删除掉，此文件就成为没有加密的了。如果想对文件加密，必须对每个文件单独进行操作。
7.按“确定”按钮。Word马上会弹出一个对话框来提示您输入摘要信息，输入摘要信息之后按“确定”按钮。
至此，日记模板就建成了，以后，只要在写日记时选择这个模板或者用这个模板建立的目记文件，自动化的操作、绚丽的色彩等将充分让你体会到在电脑上写日记的快乐。
下面是3个自动运行的WORD BAISC程序：
1)Autonew
这个程序在用户使用过个模板创建新文件被WORD执行
Sub MAIN
EndOfDocument
InsertPara
Insert Date$0
Insert " "
Insert Time$0
InsertPara
ParaUp(1,0)
StartOfLine
ParaDown(1,1)
FormatParagraph .Alignment=1, .FirstIndent="0 cm", .Before="0.5 cm", .After="0.5 cm"
FormatCharacter .Color=Int(Rnd O*7)
ParaDown(1,0)
Insert "请马上开始写日记...时间太宝贵了..."
StartOfLine
ParaDown(1,1)
FormatParagraph .Alignment=3, .FirstIndent="0.855 cm"
a=RndO*7
If a=3 Then a=1
If a=4 Then a=5
If a=7 Then a=5
FormatCharacter .Color=a
End Sub
2)Autoopen
这个程序在用户每次打开日记文件时被WORD执行
Sub MAIN
'跳到文件尾部
EndOfDocument
InsertPara
'加入日期、时间等
Insert Date$O
Insert " "
Insert Time$O
InsertPara
ParaUP(1,0)
StartOfLine
ParaDown(1,1)
'设置日期时间为中对齐方式，左边不缩进，并且上下都空0.5厘米
FormatParagraph .Alignment=1, .FirstIndent="0 cm", .Before="0.5 com", .After="0.5 cm"
FormatCharacter .Color=Int(Rnd O*7)
ParaDown(1,0)
Insert "请马上开始写日记...时间太宝贵了..."
StartOfLine
'选中刚才插入的文字，以便在用户输入内容的时候被自动覆盖掉。
ParaDown(1,1)
'设置为两端对齐方式，首行缩进2个汉字的宽度
FormatParagraph .Alignment=3, .FirstIndent="0.855 cm"
a=RndO*7
'由于0，3，4，7等色彩不醒目，因此换成别的色彩
If a=0 Then a=5
If a=7 Then a=5
If a=3 Then a=1
If a=4 Then a=5
FormatCharacter .Color=a
End Sub
3)Autoclose
这个程序在用户关闭日记文件时被WORD执行
Sub MAIN
'跳到文件尾部
EndOfDocument
InsertPara
Insert "关闭时间："
A$=Time$0
For I=Len(A$) To 7
Insert " "
Next I
Insert A$
StartOfLine
ParaDown(1,1)
a=Int(Rnd O*5)+2
If a=7 Then a=5
'设置文字的色彩
FormatCharacter .Color=a
'设置为右对齐方式，首行不缩进
FormatParagraph .Alignment=2, .FirstIndent="0 cm"
End Sub
(北京 崔红杰)