如何删除word单元格第2行数据？

yxp

我需要删除一个word表格里单元格的第2行数据，如果该单元格不是2行，比如有1行或3行，则不处理，
代码如下：

1. Sub deleteR2()
   
2.   If Selection.Information(wdStartOfRangeRowNumber) > 0 Then
   
3.     For Each oCell In Selection.Tables(1).Range.Cells
   
4.       Set myRange = oCell.Range
   
5.       If myRange.Paragraphs.Count = 2 Then myRange.Paragraphs(2).Range.Delete
   
6.     Next oCell
   
7.   End If
   
8. End Sub

复制代码

第5行会 myRange.Paragraphs(2).Range.Delete 为什么会出错呢？提示无法编辑的 Range
如果要删除第1行，则将括号里的2改为1，运行则没问题。

yxp

找到原因了，myRange.Paragraphs(2).Range  属性会多选上最后的回车。但是不知道怎么解决。

dafanshu1

将myRange.Paragraphs(2).Range.Delete改成：
ActiveDocument.Range(myRange.Paragraphs(2).Range.Start - 1, myRange.Paragraphs(2).Range.End - 1).Delete

yxp

dafanshu1 发表于 2017-3-1 13:38
将myRange.Paragraphs(2).Range.Delete改成：
ActiveDocument.Range(myRange.Paragraphs(2).Range.Start - ...

太感谢了，大神，
(__)　
/oo\\________
\　/　　　　 \---\
  \/　　　 /　 \　 \
　　\\_|___\\_|/　　*
　　  ||　 YY|  
　　  ||　　||