Jfp87
08-21-2016, 11:52 AM
Guys,
I'm copying a cell range from a word table and pasting it into an inkEdit control. Everything works fine except that the borders of the cell are also being pasted into the control.
Function fcnReadLibStatement(strNodeKey As String) As Range
Dim oTable As Table
Dim oRow As Row
Dim orng As Range
Dim str As String
Set oTable = oDoc.Tables(1)
For Each oRow In oTable.Rows
Set orng = oRow.Cells(1).Range
orng.End = orng.End - 1
If orng.Text = strNodeKey Then
Set fcnReadLibStatement = oRow.Cells(2).Range
Exit For
End If
Next oRow
End Function
Sub RangeToInkEdit(orng As Range)
orng.Copy
SendMessage inkPreview.hwnd, WM_PASTE, 0&, 0&
End Sub
What am I doing wrong?
Joe
I'm copying a cell range from a word table and pasting it into an inkEdit control. Everything works fine except that the borders of the cell are also being pasted into the control.
Function fcnReadLibStatement(strNodeKey As String) As Range
Dim oTable As Table
Dim oRow As Row
Dim orng As Range
Dim str As String
Set oTable = oDoc.Tables(1)
For Each oRow In oTable.Rows
Set orng = oRow.Cells(1).Range
orng.End = orng.End - 1
If orng.Text = strNodeKey Then
Set fcnReadLibStatement = oRow.Cells(2).Range
Exit For
End If
Next oRow
End Function
Sub RangeToInkEdit(orng As Range)
orng.Copy
SendMessage inkPreview.hwnd, WM_PASTE, 0&, 0&
End Sub
What am I doing wrong?
Joe