[VB] 아래 한글 텍스트 추가하기

▶ 아래 한글 텍스트 추가하기 예제

Private Sub btnTest_Click()

    HWPInsertText HwpCtrl1, "테스트"
    HWPInsertText HwpCtrl1, " "
    HWPInsertText HwpCtrl1, "문자열"

    HWPInsertText HwpCtrl1, vbCr + vbLf

    HWPInsertText pHwpCtrl, "테스트 문자열"

End Sub

 

▶ 아래 한글 텍스트 추가하기

'--------------------------------------------------
' 아래 한글 텍스트 추가하기
'--------------------------------------------------
' pHwpCtrl : HwpCtrl OCX
' strText  : 텍스트
'--------------------------------------------------
Public Sub HWPInsertText(pHwpCtrl As HwpCtrl, strText As String)

    Dim pHwpAction       As HwpAction
    Dim pHwpParameterSet As HwpParameterSet

    Set pHwpAction = pHwpCtrl.CreateAction("InsertText")

    Set pHwpParameterSet = pHwpAction.CreateSet()

    pHwpAction.GetDefault pHwpParameterSet

    pHwpParameterSet.SetItem "Text", strText

    pHwpAction.Execute pHwpParameterSet

    Set pHwpAction = Nothing

    Set pHwpParameterSet = Nothing

End Sub
                    
        

  

    
728x90
    
    
  


  

    
반응형
    
    
    
  


  

    
그리드형(광고전용)
    

      
    
  

        

                                        

  



  


  




                            
        

  

    

      
카카오스토리
      
트위터
      
페이스북
    
  
  



        

                    

  
'VB' 카테고리의 다른 글
  

    

      
[VB] ToolBar 클래스 : 버튼 추가하기  (0)
      
2015.05.23
    
    

      
[VB] StatusBar 클래스 : 패널 추가하기  (0)
      
2015.05.23
    
    

      
[VB] Form 클래스 : PopupMenu 메소드 사용하기  (0)
      
2015.05.22
    
    

      
[VB] 아래 한글 테이블 행 추가하기  (0)
      
2015.05.20
    
    

      
[VB] 아래 한글 단위 구하기  (0)
      
2015.05.20
    
    

      
[VB] 아래 한글 문서 여는 경우 보안 경고창 숨기기  (0)
      
2015.05.18
    
    

      
[VB] 아래 한글 문서 마지막 위치로 이동하기  (0)
      
2015.05.18
    
    

      
[VB] 아래 한글 문서 첫번째 위치로 이동하기  (0)
      
2015.05.18
    
    

      
[VB] 아래 한글 테이블 추가하기  (0)
      
2015.05.18
    
    

      
[VB] 아래 한글 폰트 선택하기  (0)
      
2015.05.18