MS word公式沒有正確運行給出錯誤運行時錯誤'5992'

Question

Sub DelXRows() 
Dim oTbl As Table, oCel As Cell, oRng As Range, StrTxt As String 
StrTxt = "X" 
For Each oTbl In ActiveDocument.Tables 
    For Each oCel In oTbl.Columns(3).Cells 
    Set oRng = oCel.Range 
    oRng.MoveEnd Unit:=wdCharacter, Count:=-1 
    If oRng.Text = StrTxt Then oRng.Rows(1).Delete 
    Next 
Next 
End Sub 

這是我用MS字表中刪除包含「X」的行的函數。現在的問題是，我有一些合併單元格和這個公式是不工作給我的錯誤：

運行時錯誤「5992」： 無法訪問單獨列在此集合，因爲該表已混合單元格寬度。

任何可能的方式來刪除此錯誤或忽略合併單元格的行？

Answer 1

完全不同的方法如何？ （我認爲這將需要一些細化，特別是有關於你如何初始化查找做）：

Sub findinTables() 
Dim oFind As Word.Find 
Dim oTbl As Word.Table 
Dim strTxt as String 
strTxt = "X" 
For Each oTbl In ActiveDocument.Tables 
    Set f = oTbl.Range.Find 
    While f.Execute(strTxt) 
    f.Parent.Rows.Delete 
    Wend 
    Set f = Nothing 
Next 
End Sub