Как получить номер текущей страницы документа MS Word при работе через OLE

@Fastex · Регистрация: 01.03.2010

Author24 — интернет-сервис помощи студентам

Пишу на C++ Builder XE. Необходимо прочитать документ: найти в нем определенную таблицу и прочитать с одного из ее столбцов все значения. Значения я получаю, но так же нужно получить номер страницы, на какой расположена ячейка, с которой это значение считано. Как быть ?

@volvo · 24.08.2012, 12:05

Курсор в ячейке находится? Тогда так:

C++

1 2	int page = wordApp.OlePropertyGet("Selection"). OlePropertyGet("Information", WdInformation::wdActiveEndPageNumber); // = 3

@Fastex · 24.08.2012, 13:36 **[ТС]**

Сообщение от UI

Курсор в ячейке находится? Тогда так:

C++

1 2	int page = wordApp.OlePropertyGet("Selection"). OlePropertyGet("Information", WdInformation::wdActiveEndPageNumber); // = 3

а как курсор в ячейку поставить ?

Вылетают 2 ошибки на это месте WdInformation::wdActiveEndPageNumber

[BCC32 Error] Unit2.cpp(62): E2090 Qualifier 'WdInformation' is not a class or namespace name
Full parser context
Unit2.cpp(21): parsing: void _fastcall TForm2::Button1Click(TObject *)
[BCC32 Error] Unit2.cpp(62): E2121 Function call missing )
Full parser context

Добавлено через 14 минут
Вот мой код:

C++

    Variant  vVarApp,vVarDocs, vVarDoc, vVarParagraphs,vVarParagraph, vVarRange,
    vVarTables, vVarTable, vVarCell, vVarRangeCell, vVarPageNumber;
    bool fStart;
    int page;
    AnsiString S="";
    TStringList *SL = new TStringList;
 
    Variant v;
    if(!fStart)
        {
            try
                {
                    vVarApp=CreateOleObject("Word.Application");
                    fStart=true;
                }
            catch(...)
                {
                    MessageBox(0, L"Ошибка при открытии сервера Word", L"Ошибка", MB_OK);
                    return;
                }
        }
    vVarApp.OlePropertySet("Visible",true);
    vVarDocs=vVarApp.OlePropertyGet("Documents");
    vVarDoc=vVarDocs.OleFunction("Open", "C:\\Users\\Fsx\\Desktop\\Новая папка\\b_757_2u.rtf");
    vVarRange = vVarDoc.OleFunction("Range");
    vVarTables=vVarRange.OlePropertyGet("Tables");
 
    for(int i=3;i<=295;i++)
        {
            vVarTable=vVarTables.OleFunction("Item",7);
            vVarCell=vVarTable.OleFunction("Cell",(Variant)(i),(Variant)(2));
            vVarRangeCell = vVarCell.OlePropertyGet("Range");
            S=vVarRangeCell.OlePropertyGet("Text");
            page = vVarApp.OlePropertyGet("Selection").OlePropertyGet("Information", WdInformation::wdActiveEndPageNumber);
 
    if(S.Trim().IsEmpty())
        {
            S="";
            continue;
        }
    else
        {
            SL->Add(S.Trim());
            S="";
        }
    SL->SaveToFile("1.txt");
        }

@volvo · 24.08.2012, 13:45

Сообщение от Fastex

а как курсор в ячейку поставить ?

А как ты считываешь значение из ячейки, не устанавливая ее активной?

Сообщение от Fastex

Вылетают 2 ошибки на это месте WdInformation::wdActiveEndPageNumber

Ну, не знаю, при подключении <Word_XP.h> (да, да, у меня OfficeXP и менять не собираюсь

) никаких ошибок не вылетает. Если все же не удастся использовать готовые перечисления - я специально привел нужное числовое значение в комментариях.

Добавлено через 8 минут
Update: Для твоего случая можно сделать так:

C++

1	page = vVarRangeCell.OlePropertyGet("Information", (Variant)3);

@Fastex · 24.08.2012, 14:03 **[ТС]**

Сообщение от UI

А как ты считываешь значение из ячейки, не устанавливая ее активной?

Ну, не знаю, при подключении <Word_XP.h> (да, да, у меня OfficeXP и менять не собираюсь

) никаких ошибок не вылетает. Если все же не удастся использовать готовые перечисления - я специально привел нужное числовое значение в комментариях.

Добавлено через 8 минут
Update: Для твоего случая можно сделать так:

C++

1	page = vVarRangeCell.OlePropertyGet("Information", (Variant)3);

Спасибо! Все работает всеми вариантами

@Fastex · 30.08.2012, 19:16 **[ТС]**

А как быть со сложными таблицами, если нужно прочитать таблицу по строкам, количество строк известно, количество столбцов - тоже, когда несколько строк в 1 столбце объединены, вылетает ошибка, что нет такого семейства

@volvo · 30.08.2012, 19:30

Правильно вылетает. При объединенных ячейках надо знать, как именно они объединены, и обращаться строго по правильным индексам. Примеры правильных индексов - в аттаче (обрати внимание, ячеек 2:1 и 2:2 не существует, при попытке обращения к ним будет ошибка):

@Fastex · 30.08.2012, 19:42 **[ТС]**

Я понимаю, а как же генерировать индексы ? У меня простые 2 цикла i,j. как понять, что ячейки объединены, или что ее не существует или как вообще тут быть ? Как понять, что под 1,1 ничего нет, а сразу 2,3 ?

@volvo · 30.08.2012, 20:50

Что мешает сделать так:

C++

    Variant vVarTable=vVarTables.OleFunction("Item",1);
    for(int R = 1; R < 4; R++)
        for(int C = 1; C < 5; C++)
        {
            try
            {
                Variant vVarCell=vVarTable.OleFunction("Cell",(Variant)(R),(Variant)(C));
                Variant vVarRangeCell = vVarCell.OlePropertyGet("Range");
                String S=vVarRangeCell.OlePropertyGet("Text");
                StringGrid1->Cells[C][R] = S;
            }
            catch(EOleException &e)
            {
               // merged, поэтому не читается
            }
        }

?

@Fastex · 02.09.2012, 22:02 **[ТС]**

Спасибо. А можно ли как - то узнать, подчеркнут ли текст или использовались ли маркеры ?

@Fastex · 10.09.2012, 16:26 **[ТС]**

Как вообще определяется форматирование и в частности как рассматривать отдельные слова в тексте? Интересует Цвет, подчеркивание и маркеры

@Fastex 2 / 2 / 0 Регистрация: 01.03.2010 Сообщений: 46
	10.09.2012, 16:26 [ТС]	11
	Как вообще определяется форматирование и в частности как рассматривать отдельные слова в тексте? Интересует Цвет, подчеркивание и маркеры 0

@Fastex 2 / 2 / 0 Регистрация: 01.03.2010 Сообщений: 46
	30.08.2012, 19:16 [ТС]	6
	А как быть со сложными таблицами, если нужно прочитать таблицу по строкам, количество строк известно, количество столбцов - тоже, когда несколько строк в 1 столбце объединены, вылетает ошибка, что нет такого семейства 0

@volvo Супер-модератор 32959 / 21276 / 8169 Регистрация: 22.10.2011 Сообщений: 36,546 Записей в блоге: 8
	30.08.2012, 19:30	7
	Правильно вылетает. При объединенных ячейках надо знать, как именно они объединены, и обращаться строго по правильным индексам. Примеры правильных индексов - в аттаче (обрати внимание, ячеек 2:1 и 2:2 не существует, при попытке обращения к ним будет ошибка): Миниатюры 0

@Fastex 2 / 2 / 0 Регистрация: 01.03.2010 Сообщений: 46
	30.08.2012, 19:42 [ТС]	8
	Я понимаю, а как же генерировать индексы ? У меня простые 2 цикла i,j. как понять, что ячейки объединены, или что ее не существует или как вообще тут быть ? Как понять, что под 1,1 ничего нет, а сразу 2,3 ? 0

@Fastex 2 / 2 / 0 Регистрация: 01.03.2010 Сообщений: 46
	02.09.2012, 22:02 [ТС]	10
	Спасибо. А можно ли как - то узнать, подчеркнут ли текст или использовались ли маркеры ? 0

Как получить номер текущей страницы документа MS Word при работе через OLE

Решение