[VB] 아래 한글 테이블 행 추가하기

icodebroker VB 2024-06-18

■ 아래 한글의 테이블 행을 추가하는 방법을 보여준다.

▶ 예제 코드 (VB)


'--------------------------------------------------
' 아래 한글 테이블 행 추가하기
'--------------------------------------------------
' pHwpCtrl   : HwpCtrl OCX
' strTableID : 테이블 ID
'--------------------------------------------------
Public Sub HWPAppendTableRow(pHwpCtrl As HwpCtrl, strTableID As String)

    Dim result As Boolean

    pHwpCtrl.MoveToField strTableID, False, False, False

    pHwpCtrl.Run "TableCellBlock"

    pHwpCtrl.Run "TableColPageDown"

    pHwpCtrl.Run "Cancel"

    pHwpCtrl.Run "TableAppendRow"

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

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

' 아래 한글 테이블 행 추가하기

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

' pHwpCtrl : HwpCtrl OCX

' strTableID : 테이블 ID

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

Public Sub HWPAppendTableRow(pHwpCtrl As HwpCtrl, strTableID As String)

Dim result As Boolean

pHwpCtrl.MoveToField strTableID, False, False, False

pHwpCtrl.Run "TableCellBlock"

pHwpCtrl.Run "TableColPageDown"

pHwpCtrl.Run "Cancel"

pHwpCtrl.Run "TableAppendRow"

End Sub

CONTROL VB