Dim objSel As TextSelection
objSel = ActiveDocument().Selection
objSel.Text = ","
objSel = ActiveDocument().Selection
objSel.Text = ","
TextSelection 안에 콤마를 포함한 문자열을 대입하려고 하면, 에러가 난다. 내가 뭔가 잘못한 건 줄 알았는데, 인텔리센스 관련 버그였다. 아직까지 버그 픽스가 되지 않았으므로, 해결하려면 TextSelection 대신에 EditPoint 객체를 이용해야 한다.
Dim objSel As TextSelection
Dim objRanges As TextRanges
Dim objStartPt As EditPoint
objSel = ActiveDocument().Selection
objRanges = objSel.TextRanges
objStartPt = objRanges.Item(1).StartPoint.CreateEditPoint()
objSel.Text = ""
objStartPt.Insert = ","
Dim objRanges As TextRanges
Dim objStartPt As EditPoint
objSel = ActiveDocument().Selection
objRanges = objSel.TextRanges
objStartPt = objRanges.Item(1).StartPoint.CreateEditPoint()
objSel.Text = ""
objStartPt.Insert = ","
글
댓글을 달아 주세요
댓글 RSS 주소 : http://serious-code.net/tc/rss/comment/10댓글 ATOM 주소 : http://serious-code.net/tc/atom/comment/10