Задача:
Нужно получить все символы с их атрибутами из документа Word

---

При использовании Application.ActiveDocument.Characters всё конкретно тормозит.
Точнее сам перебор символов не тормозит, но как только пробую читать атрибы, то начинаются тормоза.
К примеру, если в этом коде раскоментировать строку lCount = Ch.Bold, то скорость работы падает в 8 раз!!!

  Set Ch = Application.ActiveDocument.Characters.First 
  Do
    ' lCount = Ch.Bold
    Set Ch = Ch.Next(wdCharacter, 1)
  Loop While Not (Ch Is Nothing)

Может кто сталкивался с таким и знает способы решения этой задачи?