vừa đọc mấy file doc của bác Tom, thấy quest khá hay và sẵn ôn lại VisualBasic, tranh thủ viết 1 đoạn VBA có sẵn trong Word giải đáp yêu cầu của bác đại khái như sau:
1/ Nguyên lý: Vì mỗi bài hát là 1 chương (section) nên ta sẽ copy từng chương ra lưu lại thành 1 file text unicode. Tên file sẽ là tựa-bài-hát_tác-giả.txt để tránh trùng tên.
2/ Cách dùng:
- Mở file .doc, xóa phần mục lục.
- bấm
Alt+F11 để mở VBA và dán đoạn code, bấm
F5 để chạy đoạn code (nếu rành Word, bác Tom cũng có thể dán đoạn code vào normal.dot cho tiện)
3/ Lưu ý:
- Vì cháu code trên ActiveDocument, chỉ nên mở 1 file doc lúc chạy code. Nếu mở cùng lúc nhiều file, bác Tome phải biết file nào là active (mà với file doc nhiều MB của bác, thao tác 1 file thoai cũng đủ mệt mỏi roài
).
- Word ko có chức năng export, nên sẽ xuất hiện thao tác copy - tạo mới - dán - lưu lại - đóng file.
- Word 2003: file txt sẽ lưu cùng thư mục với file .doc gốc.
- Word 2010: (có thể là cả 2007): file txt sẽ lưu trong
Default File Location trong Word Options, mặc định là
Documents.
cháu đính kèm file mẫu (cắt ngắn từ file của bác) để tham khảo. Đã test OK trên Word 2003 và 2010. Có gì cần thay đổi bác post lên sớm, cháu sẽ ngâm cứu & bổ sung vào Chủ Nhật tới.
http://www.mediafire.com/download.php?hveggzj5xnz
chúc bác Tom sớm hoành thành "project"
Bookmarks