[VB] 아래 한글 폰트 선택하기

icodebroker VB 2024-06-18

■ 아래 한글의 폰트를 선택하는 방법을 보여준다.

▶ 예제 코드 (VB)


'--------------------------------------------------
' 아래 한글 텍스트 삽입하기
'--------------------------------------------------
' pHwpCtrl    : HwpCtrl OCX
' strFontName : 폰트명
'--------------------------------------------------
Public Sub HWPSetFont(pHwpCtrl As HwpCtrl, strFontName As String)

    Dim pHwpAction       As HwpAction
    Dim pHwpParameterSet As HwpParameterSet

    Set pHwpAction = pHwpCtrl.CreateAction("CharShape")

    Set pHwpParameterSet = pHwpAction.CreateSet()

    pHwpAction.GetDefault pHwpParameterSet

    pHwpParameterSet.SetItem "FaceNameHangul", strFontName

    pHwpAction.Execute pHwpParameterSet

    Set pHwpParameterSet = Nothing

    Set pHwpAction = Nothing

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

'--------------------------------------------------

' 아래 한글 텍스트 삽입하기

'--------------------------------------------------

' pHwpCtrl : HwpCtrl OCX

' strFontName : 폰트명

'--------------------------------------------------

Public Sub HWPSetFont(pHwpCtrl As HwpCtrl, strFontName As String)

Dim pHwpAction As HwpAction

Dim pHwpParameterSet As HwpParameterSet

Set pHwpAction = pHwpCtrl.CreateAction("CharShape")

Set pHwpParameterSet = pHwpAction.CreateSet()

pHwpAction.GetDefault pHwpParameterSet

pHwpParameterSet.SetItem "FaceNameHangul", strFontName

pHwpAction.Execute pHwpParameterSet

Set pHwpParameterSet = Nothing

Set pHwpAction = Nothing

End Sub

CONTROL VB