[VB] 아래 한글 텍스트 색상 설정하기

■ 아래 한글 텍스트 색상을 설정하는 방법을 보여준다.

▶ 예제 코드 (VB)


'--------------------------------------------------
' 아래 한글 텍스트 색상 설정하기
'--------------------------------------------------
' 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

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

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

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

' 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