Ученик-кочегар
Группа: Участник
Сообщений: 7
|
Подскажите, мне нужно в вордовском файле пробежаться по тексту посимвольно, и в цикле выбрать кусок текста который расположен между 2 пустыми строками:
выаываываываываыавы
ваываывавыываывавыа
\n
\n
sdfsddddddddddfdfdf
dffffffffffffffffff
\n
\n
вот такие куски надо мне выбрать и выделить с помощью Range(a, 
WordApplication1->ConnectKind=ckNewInstance;
WordDocument1->ConnectKind=ckRunningOrNew;
AnsiString FileName="c:\\1.doc";
WordDocument1->ConnectTo(WordApplication1->Documents->Open((OleVariant) FileName));
int c=WordDocument1->Characters->Count;
for (int i=1;i<=c;i++)
{
WordDocument1->Characters->Item(i);
// ????????
}
OleContainer1->Paste();
WordDocument1->Close();
WordDocument1->Disconnect();
WordApplication1->Quit(); |
