첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

■ 아래 한글 폰트 선택하기

----------------------------------------------------------------------------------------------------

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

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

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

' 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

----------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요