Thư viện tri thức trực tuyến
Kho tài liệu với 50,000+ tài liệu học thuật
© 2023 Siêu thị PDF - Kho tài liệu học thuật hàng đầu Việt Nam
Tài liệu đang bị lỗi
File tài liệu này hiện đang bị hỏng, chúng tôi đang cố gắng khắc phục.
Thủ thuật Windows XP ( phần 6) docx
Nội dung xem thử
Mô tả chi tiết
Chương 1 :Thủ thuật Windows XP ( phần 6)
020. Hiển thị tất cả các phông chữ có trong máy.
Vào Notepad soạn nội dung sau rồi lưu lại dưới định dạng là .vbs.(
VD: Hien thi cac phong chu.vbs )
dim w
set w = createobject("word.application")
w.visible = true
dim d
set d = w.documents.add
dim iFonts
iFonts = w.fontnames.count
dim i
for i = 1 To iFonts
d.content.insertafter w.fontnames(i) & vbcrlf
d.content.insertafter "Hien thi Font chu" & vbcrlf
d.content.insertafter "Rat de dang ma khong can su dung phan mem
ho tro" & vbcrlf
d.content.insertafter "LuongHuuViet" & vbcrlf
d.content.insertafter "0913722650 0919324832 0913696000
0913650651" & vbcrlf
next
dim rngParagraphs
for i = 1 To iFonts * 4
if (i + 3) mod 4 = 0 then