Do While Not ctrlX Is Nothing
'eqed는 인라인이므로 점검 불필요하다.
If ctrlX.ctrlid = “gso” Or ctrlX.ctrlid = “tbl” Then
Set pstHwp = ctrlX.GetAnchorPos(0)
If CInt(pstHwp.item("List")) = 0 Then
Set pstHwp = ctrlX.Properties
'글자처럼은 1이 참인 상태이고 0가 거짓이다.
lngAsChar = CLng(pstHwp.item("TreatAsChar"))
'인라인은 모두 DocEnd의 위치에 반영이 되므로 불필요함.
If Not lngAsChar = 1 Then
lngX = CLng(hwpView.GetCtrlVerticalOffset(ctrlX, CLng(0)))
lngX = lngX + CLng(pstHwp.item("Height"))
If lngX > lngMax Then
lngMax = lngX
End If
End If
End If
End If
Set ctrlX = ctrlX.Next
Loop
hwpCtrl.ocx 에서 GetCtrlVerticalOffset을 잘 사용하였는데
hwpCtrl.ocx 의 지원이 중단된다고 해서
HwpObjectLib.HwpObject 개체를 사용하는 automation으로 다시 수정하고 있습니다.
그런데 HwpObjectLib.HwpObject는 GetCtrlVerticalOffset를
지원하지 않는 다는 에러가 나오네요.
다른 대안이 없을 까요?