Только формулы в word

[werovulv]

Здравствуйте уважаемые форумчане! Такой вот вопрос, имеется макрос, должен оставлять только формулы в ворде, а при работе он полностью все стирает, подскажите пожалуйста в чем ошибка:

PHP код:

Sub NumberOfSheets()
  
 Dim oInlineShape As InlineShape
For Each oInlineShape In ActiveDocument.InlineShapes
 oInlineShape.Delete
Next
  
  
 Dim p As Paragraph, r As Range
For Each p In ActiveDocument.Paragraphs
  Set r = p.Range
  If Not r.Information(wdWithInTable) Then
    If r.InlineShapes.Count = 0 Then
      r.Delete
    End If
  End If
Next
 
 
 
    
    Do While ActiveDocument.Tables.Count <> 0
    ActiveDocument.Tables(1).Delete
Loop
 
 
 
End Sub