05-01-22 08:43 AM
Answered! Go to Answer.
05-01-22 10:21 AM
Dim doc as Object = GetDocument(Handle,Document_Name)
doc.Tables.Item(Table_Number).Cell(Cell_Y_Number,Cell_X_Number).Range.Select
If Number_Of_Rows = 0 Then Throw New Exception("Number of rows must be greater than zero.")
If Insert_After_Mode Then
For i = 1 To Number_Of_Rows
doc.ActiveWindow.Selection.InsertRowsBelow()
Next
Else
For i = 1 To Number_Of_Rows
doc.ActiveWindow.Selection.InsertRowsAbove()
Next
End If
05-01-22 10:21 AM
Dim doc as Object = GetDocument(Handle,Document_Name)
doc.Tables.Item(Table_Number).Cell(Cell_Y_Number,Cell_X_Number).Range.Select
If Number_Of_Rows = 0 Then Throw New Exception("Number of rows must be greater than zero.")
If Insert_After_Mode Then
For i = 1 To Number_Of_Rows
doc.ActiveWindow.Selection.InsertRowsBelow()
Next
Else
For i = 1 To Number_Of_Rows
doc.ActiveWindow.Selection.InsertRowsAbove()
Next
End If
07-01-22 12:35 PM
08-01-22 12:20 AM