첨부 소스 코드는 나눔고딕코딩 폰트를 사용합니다.
728x90
반응형
728x170
'--------------------------------------------------
' 아래 한글 텍스트 대체하기
'--------------------------------------------------
' pHwpCtrl   : HwpCtrl OCX
' strSource  : 소스 문자열
' strReplace : 대체 문자열
'--------------------------------------------------
Public Sub ReplaceText(pHwpCtrl As HwpCtrl, strSource As String, strReplace As String)

    Dim pHwpAction       As HwpAction
    Dim pHwpParameterSet As HwpParameterSet
    
    Set pHwpAction = pHwpCtrl.CreateAction("AllReplace")
    
    Set pHwpParameterSet = pHwpAction.CreateSet()
    
    pHwpParameterSet.SetItem "FindString", strSource     ' 찾을 문자열
    pHwpParameterSet.SetItem "ReplaceString", strReplace ' 대체 문자열
    pHwpParameterSet.SetItem "IgnoreMessage", True       ' 메시지 무시 여부
    pHwpParameterSet.SetItem "Direction", 2              ' 찾을 방향 : 앞(0), 뒤(1), 전체(2)
    pHwpParameterSet.SetItem "SeveralWords", True        ' 복수 단어 찾기 여부
    
    pHwpAction.Execute pHwpParameterSet

    Set pHwpAction = Nothing

    Set pHwpParameterSet = Nothing

End Sub
728x90
반응형
그리드형(광고전용)
Posted by icodebroker
TAG ,

댓글을 달아 주세요