Để làm đợc công việc trên, bạn có thể không cần biết về ngôn ngữ Word Basic, nhng bạn phải biết một chút về Macro trong Word 6.
1\- Soạn một văn bản với nội dung là tên các văn bản trong đĩa, chẳng hạn nh sau: (Soạn File DSFILE.DOC).
nh vậy, sau mỗi lần soạn một văn bản mới, ta mở File này và lu tên văn bản vừa soạn vào bảng (Ví dụ nh bảng sau), rồi xắp xếp cột tên File.Doc theo thứ tự a,b,c ..
ST T Tên File.Doc Chủ đề nội dung Mã hoá
1 11-ANKA Đề kiểm tra háo lớp 11A phần ANKAN
2 12-1996 Duyệt học phí từ tháng 12 năm 1996 (11l)
3 15P-12 Kiểm tra 15 phút hoá sau bài kim loại kiềm
4 ANH-
LUC Sáng kiến kinh nghiệm của anh Lực Luc 5 BIA Bìa ngoài của sáng kiến kinh
nghiệm
6 DSCCVC Danh sách CNV đơvj nâng lơng 7 XAY-TR Tờ trình về việc xây khu học đ-
ờng mới
Xay 2\- Để mở nhanh File DSFILE.DOC bạn nên soạn Macro sau và gán vào phím nóng (Ví dụ phím Ctrl -8) hoặc tạo nút lệnh riêng trên thanh công cụ :
a - Chọn Tools/Macro sau đó nhập tên Macro vào ô Macro name: (Ví dụ GhiDsFile).
b - Chọn mục Create và soạn vào nội dung sau(không soạn các chữ số đầu dòng):
‘Macro GHIDSFILE.1997 by Nguyen Huy Hung Sub MAIN
If Files$ ( DSFILE.DOC ) <> “ ” “”
then FileOpen DSFILE.DOC not found ! , Thông“ ” “
báo ”
End if End Sub
c - Tiếp đó gõ Ctrl-F4 để ghi lại và thoát, sau đó chọn Tool/Customize .. Trong mục Toolbars, phần Categories chọn Macro, trong phần Macro chọn GhiDsFile bằng chuột (giữ chuột)và kéo nên thanh công cụ (chọn biểu t- ợng sẵn có hoặc tự soạn bằng chức năng Edit).
Trong mục Keyboard, phần Categories chọn Macro, trong phần macro chọn GhiDsFile, sau đó di chuyển tới phần Press New Shortcut Key và gõ Ctrl-8, chọn Assign.
Về sau bạn có thể mở thanh File DSFILE bằng phím nóng hoặc nút lệnh trên thanh công cụ.
3\- Công việc còn lại là soạn một Macro khác làm chức năng mở nhanh File ở trong tệp DSFILE.
Bạn làm lại thao tác a,b,c ở trên nhng lấy tên Macro khác. Trong phần b, nội dung của Macro này nh sau:
‘Macro QUICKOPèNILE.1997 by Nguyen Huy Hung Sub MAIN
Begin Dialog UerDialog 346, 90, Nhap ten File“ ”
TexBox 9, 52, 192, 18, secnum
Tex 9, 6, 183, 13, ENTER File Name“ ”
Tex 9, 26, 183, 23, Ctrl_V for quick“ ”
OKButtom 249, 4, 88, 21
CanceButtom 249, 28, 88, 21
PushButtom 249, 52, 88, 21, Help“ ”
End Dialog
Dim dlg As UserDialog Dialog dlg
If Files$ (dlg.secnum + .Doc ) <> then“ ” “”
DocClose
FileOpen dlg.secnum + .Doc Else“ ”
MsqBox File + Ucase$ (dlg.secnum) + .Doc not” ” “
found , Thong bao , 64” “ ”
End if End Sub
Và phím nóng khác, ví dụ có thể gán ngay là Ctrl_0