Поиск формул в Word - VBA

Формулировка задачи:

Не могу осуществить поиск формул в Word. Могу перейти только к одной формуле и не более, не могу найти определенных команд. В итоге нужно: Найти количество формул в Word и скопировать их содержимое. Заранее спасибо. Использую метод Selection.GoTo(wdEquation) и Selection.GoToNext(wdEquation). Next почему то не срабатывает, то есть остается на предыдущей формуле

Решение задачи: «Поиск формул в Word»

textual
                            Листинг программы 
                        

                              Dim curDoc As Document, M As OMath
    Set curDoc = ActiveDocument
    Documents.Add
    For Each M In curDoc.OMaths
        M.Range.Copy
        Selection.Paste
        Selection.TypeParagraph
    Next
    MsgBox "Скопировано формул: " & ActiveDocument.OMaths.Count
                        