Xem mẫ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.
nguon tai.lieu . vn