olinkaЕсть документ Word
1.1. Текст задачи
1.2. Текст задачи
1.3. Текст задачи
Необходимо создать отдельные документы 1.doc, 2.doc, 3.doc с текстом задачи

я написала макрос:
k = ActiveDocument.Lists.Count
lt = ActiveDocument.Lists(k).CountNumberedItems
Set fs = CreateObject("Scripting.FileSystemObject")

For I = 1 To lt
Set
a = fs.CreateTextFile(ActiveDocument.Path & Application.PathSeparator & I ".doc", True)
a.writeline (ActiveDocument.Lists(k).ListParagraphs(I).Range)
Next I
Все вроде работает хорошо. Но когда в тексте задачи есть формулы, то они не копируются в новые документы.
Подскажите что нужно сделать чтобы зароботало с формулами.

Помощь в решении задач по естественнонаучным дисциплинам (физика химия математика), а также по английскому языку и др.

http://www.theorem.ru/

Проект организован аспирантами и научными сотрудниками естественных факультетов Санкт-Петербургского Государственного Университета.