VBA的MS Word表格设置行与行光标所在

Question

这是我迄今为止 但即时通讯挣扎SET oCurrentRow

Sub InsertRow() 

Dim EventDate As String 
Dim oTable As Table 
Dim oCell As Cell 
Dim oCurrentRow As Row 
Dim oNewRow As Row 

If Not Selection.Information(wdWithInTable) Then 
MsgBox "Can only run this within a table" 
Exit Sub 
End If 


Set oTable = ActiveDocument.Tables(1) 
Set oCurrentRow = Selection.Cells(1).RowIndex 


oCurrentRow.Select 
With Selection 
.Collapse Direction:=wdCollapseStart 
.InsertRowsAbove 1 
End With 
' go to inserted row and insert text 

    End Sub 

我猜测我一旦插入上述 oCurrentRow行将引用新插入的行 其中我想在单元格中添加一些文本（1）

Answer 1

RowIndex返回一个数字而不是行，因此它不能用于设置行对象。更改

Set oCurrentRow = Selection.Cells(1).RowIndex 

要

Set oCurrentRow = oTable.Rows(Selection.Cells(1).RowIndex) 

你应该用气做饭。