标题如意日记本

　　首先要制作自己的日记本模板
　　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
　　(北京　崔红杰)