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

icodebroker VB 2024-06-18

■ 아래 한글에서 텍스트를 추가하는 방법을 보여준다.

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


Private Sub btnTest_Click()

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

    HWPInsertText HwpCtrl1, vbCr + vbLf

    HWPInsertText pHwpCtrl, "테스트 문자열"

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

Private Sub btnTest_Click()

HWPInsertText HwpCtrl1, "테스트"

HWPInsertText HwpCtrl1, " "

HWPInsertText HwpCtrl1, "문자열"

HWPInsertText HwpCtrl1, vbCr + vbLf

HWPInsertText pHwpCtrl, "테스트 문자열"

End Sub

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


'--------------------------------------------------
' 아래 한글 텍스트 추가하기
'--------------------------------------------------
' 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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

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

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

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

' 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

CONTROL VB