Word的“文件”菜单最下面列出了最近使用过的文件名及路径，文件名及路径会随着用户的使用不断地发生变化，这符合统计学中“最近使用”最大可能是“经常使用”的原则，方便了用户，提高了效率。它的实现方法有很多，我举一例，供大家参考。

      一、在工作目录下创建一个LastFile.ini文件，其中第一行为历史文件的总数，以下行是历史文件的全路径。当然您也可以使用数据表存储，那样编程时也许更方便一些。

       LastFile.ini文件内容如：4

"D:\程序实例\slzj\slzj源代码\2004.11.18水利造价\示例.mdb"

"C:\WINDOWS\Desktop\111\111.mdb"

"D:\程序实例\slzj\slzj源代码\2004.11.18水利造价\示例.mdb"

"D:\程序实例\slzj\slzj源代码\2004.11.3\2004.11.3\2004.11.3\2004.11.3\示例(审查).mdb"

    二、在Form_Load中编写如下代码，达到在文件菜单中显示历史文件的效果

'**************显示以往打开的文件记录***************************

    '对配置文件不存在的情况下，作出操作。

    If Dir(App.Path & "\lastfile.ini") = "" Then

        Open App.Path & "\lastfile.ini" For Output As #1

        Write #1, 0

        Close #1

End If

'打开lastfile.ini文件

    Open App.Path & "\lastfile.ini" For Input As #1

    Dim strLastfile2 As String

    '获取历史文件的数目

    Line Input #1, strLastfile2

    iMaxLastfile = Int(strLastfile2)

    Dim i As Integer

    '添加历史文件到ActiveBar菜单，先在ActiveBar中预设4各Command和一个分割线。并把他们的Visible＝False

    For i = 1 To iMaxLastfile

        Line Input #1, strLastfile2

        strLastfile(i - 1) = Mid(strLastfile2, 2, Len(strLastfile2) - 2)‘去引号

        AABar.Bands("MenuFile").Tools.item(i + 10).Caption = strLastfile(i - 1)

        AABar.Bands("MenuFile").Tools.item(i + 10).Visible = True

    Next

    '关闭文件

    Close #1

    '设置分隔条

    If iMaxLastfile <> 0 Then

        AABar.Bands("MenuFile").Tools.item(15).Visible = True

End If