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

■ 아래 한글 텍스트 색상 설정하기

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

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

' 아래 한글 텍스트 색상 설정하기

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

' pHwpCtrl   : HwpCtrl OCX

' nTextColor : 텍스트 색상

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

Public Sub HWPSetTextColor(pHwpCtrl As HwpCtrl, nTextColor As Integer)

 

    Dim pHwpAction       As HwpAction

    Dim pHwpParameterSet As HwpParameterSet

    

    Set pHwpAction = pHwpCtrl.CreateAction("CharShape")

    

    Set pHwpParameterSet = pHwpAction.CreateSet()

    

    pHwpAction.GetDefault pHwpParameterSet

    

    pHwpParameterSet.SetItem "TextColor", nTextColor

    

    pHwpAction.Execute pHwpParameterSet

 

    Set pHwpAction = Nothing

 

    Set pHwpParameterSet = Nothing

 

End Sub

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

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요