Столкнулся тут с такой проблемой: нужно вытащить из ворда текст и сохранить его с xml файлик. Вытаскивать нужно только текст, но со свойствами шрифта.
Написал так: перебираю параграфы и для каждого беру свойства шрифта первой буквы и собственно текст параграфа. Таким образом я теряю оформление текста внутри параграфа... в принципе и фиг то с ним. Меня беспокоит то что даже простой пербор параграфов:
Код:
Variant MSWord = Variant::CreateObject("Word.Application");
MSWord.OlePropertySet("Visible", false);
Variant DocCollection = MSWord.OlePropertyGet("Documents");
DocCollection.OleFunction("Open", FileName);
Variant ActiveDoc = MSWord.OlePropertyGet("ActiveDocument");
Variant Paragraphs = ActiveDoc.OlePropertyGet("Paragraphs");
unsigned i = 1, PCount = Paragraphs.OlePropertyGet("Count");
while(i<=PCount)
{
CurPar = Paragraphs.OleFunction("Item", i);
i++;
}
Написал так: перебираю параграфы и для каждого беру свойства шрифта первой буквы и собственно текст параграфа. Таким образом я теряю оформление текста внутри параграфа... в принципе и фиг то с ним. Меня беспокоит то что даже простой пербор параграфов:
Код:
Variant MSWord = Variant::CreateObject("Word.Application");
MSWord.OlePropertySet("Visible", false);
Variant DocCollection = MSWord.OlePropertyGet("Documents");
DocCollection.OleFunction("Open", FileName);
Variant ActiveDoc = MSWord.OlePropertyGet("ActiveDocument");
Variant Paragraphs = ActiveDoc.OlePropertyGet("Paragraphs");
unsigned i = 1, PCount = Paragraphs.OlePropertyGet("Count");
while(i<=PCount)
{
CurPar = Paragraphs.OleFunction("Item", i);
i++;
}
