Hiển thị tất cả các phông chữ có trong máy ppt

2 375 0
Hiển thị tất cả các phông chữ có trong máy ppt

Đang tải... (xem toàn văn)

Thông tin tài liệu

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 set rngParagraphs = d.range(d.paragraphs(i + 1).range.start, d.paragraphs(i + 3).range.end) rngParagraphs.select w.selection.font.name = w.fontnames((i - 1) \ 4 + 1) end if next msgbox "Ket Thuc" Sau đó tiến hành thực thi file vừa tạo. . 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

Ngày đăng: 22/07/2014, 09:21

Từ khóa liên quan

Tài liệu cùng người dùng

  • Đang cập nhật ...

Tài liệu liên quan