... TRÌNH DIỄN TẤT CẢ CÁC LOẠI FONT TRONG MS WORD ************************ Đoạn mã sau sẽ sử dụng Microslft Word để hiển thò các font chữ ... d.paragraphs(i+3).range.end) rngParagraphs.select w.selection.font.name=w.fontnames((i-1)\4+1) end if next msgbox “Ket Thuc” Lưu tập tin này lại và đặt tên là viewallfont.vbs, chạy tập tin này, bạn sẽ có
Ngày tải lên: 12/06/2013, 01:27