Hi, I'm finding difficult to track changes done in a table, like cell insertions and deletions ... Here is the code that I have used .... but for some reason it is not recognizing the cell deletion or insertion as a change in the document..... plz help me on this plz.............

[vba]For Each oRevision In oDoc.Revisions
Select Case oRevision.Type
Case wdRevisionInsert, wdRevisionDelete, wdRevisionTableProperty, _
wdRevisionCellDeletion, wdRevisionCellInsertion, wdRevisionCellMerge, _
wdCommentsStory, wdRevisedPropertiesMarkBold, wdRevisionsViewFinal
With oRevision
strText = .Range.Text

Set oRange = .Range
Do While InStr(1, oRange.Text, Chr(2)) > 0
'Find each Chr(2) in strText and replace by appropriate text
i = InStr(1, strText, Chr(2))

If oRange.Footnotes.Count = 1 Then
strText = Replace(Expression:=strText, Find:=Chr(2), _
Replace:="[footnote reference]", Start:=1, Count:=1)
'To keep track of replace, adjust oRange to start after i
oRange.Start = oRange.Start + i

ElseIf oRange.Endnotes.Count = 1 Then
strText = Replace(Expression:=strText, Find:=Chr(2), _
Replace:="[endnote reference]", Start:=1, Count:=1)
'To keep track of replace, adjust oRange to start after i
oRange.Start = oRange.Start + i
End If
Loop
End With
'Add 1 to counter
n = n + 1

'Type of revision
If oRevision.Type = wdRevisionInsert Then
ChangeType = "DataInserted"
ElseIf oRevision.Type = wdRevisionDelete Then
ChangeType = "DataDeleted"
ElseIf oRevision.Type = wdRevisionTableProperty Then
ChangeType = "Table"
ElseIf oRevision.Type = wdRevisionCellDeletion Then
ChangeType = "Table Cell Delete"
ElseIf oRevision.Type = wdRevisionCellInsertion Then
ChangeType = "Table Cell Insert"
ElseIf oRevision.Type = wdRevisionCellMerge Then
ChangeType = "Table Cell Merge"
ElseIf oRevision.Type = wdCommentsStory Then
ChangeType = "Table Cell Insert"
End If

strSQL = _
"INSERT INTO TrackChanges (PageNo,PLineNo, CType, DataChanged, Author, ChangeDate) " _
& "VALUES (" & oRevision.Range.Information(wdActiveEndPageNumber) & "," _
& oRevision.Range.Information(wdFirstCharacterLineNumber) & ",'" & _
ChangeType & "','" & strText & "','" & oRevision.Author & "'," & _
Format(oRevision.Date, "mm-dd-yyyy") & ")"
'Execute the query
'MsgBox strSQL
objCmd.CommandText = strSQL
objCmd.CommandType = adCmdText ' passthrough
objCmd.Execute

End Select
Next oRevision
[/vba]