|
Sub FontNames()
Dim wdApp As Object
Dim vFont
Dim r As Long
Dim Sht As Worksheet
// Sample Text를 지정한 상수
Const TEXT1 As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Const TEXT2 As String = "abcdefghijklmnopqrstuvwxyz"
Const TEXT3 As String = "1234567890"
// 작업하려는 워크시트
Set Sht = Sheet1
// CreateObject()를 사용하여 워드에 대해
Late-binding을 시도한다.
Set wdApp = CreateObject("Word.Application")
// 워드를 볼 필요가 없으므로 숨겨둡니다.
wdApp.Visible = False
r = 2
// 워드개체의 FontNames 컬렉션 개체에는
// 글꼴의 이름을 담고 있습니다.
For Each vFont In wdApp.FontNames
// 글꼴의 이름을 첫 번째 열에 출력합니다.
Sht.Cells(r, 1) = vFont
// 샘플 텍스트를 두 번째 열에 출력합니다
Sht.Cells(r, 2) = TEXT1 & TEXT2 & TEXT3
// 샘플 텍스트에 글꼴을 적용합니다.
With Sht.Cells(r, 2).Font
.Name = vFont
.Size = 12
End With
r = r + 1
Next
// 워드를 종료합니다.
wdApp.Quit
// 워드개체를 메모리에서 제거합니다
Set wdApp = Nothing
End Sub
|
OfficeTutor 365