[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