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