Huh? There is an Undo.[vba]Selection.TypeText Text:="Hello World"
ActiveDocument.Undo[/vba]would type "Hello World", then remove that text.
[vba]Sub TestUndo()
ActiveDocument.Tables.Add Range:=Selection.Range, _
numrows:=3, numcolumns:=5
Selection.Tables(1).Cell(2, 2).Range.Text = _
"This is text in cell (2, 2)."
ActiveDocument.Undo
ActiveDocument.Undo
End Sub[/vba]would make a table of 3 rows / 5 cols; put text into Cell( 2,2); then undo the text insertion; then undo the table insertion...leaving it exactly the way it was - no table, no text.