Tác giả: truongphu
Mô tả: Bài viết sau đây với code rất đơn giản, xứng đáng là Mẹo vặt
Nội dung: Nhờ hàm SendKeys paste nội dung Unicode từ clipboard vào notepad và lưu dưới file định dạng Unicode
Tuy đơn giản nhưng tiện ích nó không thể phủ nhận. Bài viết nầy trên forum mình chưa có.
Code: Select all
- Private Sub Command1_Click()
- Dim TxtUni
- TxtUni = Shell("notepad", vbNormalFocus) ' Goi Notepad
- AppActivate TxtUni ' Activate Notepad
- SendKeys "^{v}", True ' Dán Clipboard vào Notepad
- SendKeys "^{s}", True ' Goi Dialog.Save
- SendKeys "C:\1.txt", True ' Tên file save
- SendKeys "{TAB}{TAB}{TAB}{TAB}", True ' Nhay Ðên chon kiêu Mã
- SendKeys "{DOWN}", True ' chon Unicode
- SendKeys "{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}", True ' Nhay Ðên Save
- SendKeys "{ENTER}", True ' Enter
- SendKeys "%{F4}", True ' Thoát Notepad
- End Sub