첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
본 블로그는 광고를 포함하고 있습니다.
광고 클릭에서 발생하는 수익금은 모두 블로그 콘텐츠 향상을 위해 쓰여집니다.

728x90
반응형
728x170
'--------------------------------------------------
' 아래 한글 텍스트 삽입하기
'--------------------------------------------------
' 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
728x90
반응형
그리드형
Posted by 사용자 icodebroker
TAG ,

댓글을 달아 주세요