Внести текст в ячейку таблицы Word

@Alex_From_777 · Регистрация: 22.04.2015

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

Доброго времени суток.
Помогите решить следующую задачку.
Имеется файл .docx с таблицей.
Я его открываю, и пытаюсь внести текст в ячейку [1,1].
Но что я делаю неправильно? Ибо при выполнении строки vVarTable=vVarDoc.OlePropertyGet("Tables[1]"); возникает исключение EOLESystem Error 'Неизвестное имя'

C++

     vVarApp = CreateOleObject("Word.Application");
     vVarApp.OlePropertySet("Visible",true);
     vVarDocs=vVarApp.OlePropertyGet("Documents");
     vVarDocs.OleProcedure("Open", path.c_str(),false,0);
     vVarDoc=vVarDocs.OleFunction("Item",1);
     vVarDoc.OleProcedure("Activate");
 
     String text = "CONTROLL";
     vVarTable=vVarDoc.OlePropertyGet("Tables[1]");
     vVarTable.OlePropertyGet("Cell", 1,1).OlePropertyGet("Range").OlePropertyGet("Text")=text.c_str();

Подскажите, как получить доступ к таблицам, если они уже были созданы ранее в тексте.
Заранее благодарю.

@volvo · 01.10.2018, 15:19

Как минимум нужно:

C++

1	vVarTable = vVarDoc.OlePropertyGet("Tables").OleFunction("Item", 1);

@Alex_From_777 · 02.10.2018, 08:01 **[ТС]**

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

vVarTable = vVarDoc.OlePropertyGet("Tables").OleFunction("Item", 1);

Да, а затем еще я добавил:

C++

1
2
3

vVarCell = vVarTable.OleFunction("Cell", 1, 1);
RangeCell = vVarCell.OlePropertyGet("Range");
RangeCell.OlePropertySet("Text", text.c_str());

и получил, что хотел.

@archerix · 09.02.2020, 12:44

А какие библиотеки надо подключить, чтобы заработало CreateOleObject?

@volvo · 09.02.2020, 12:57

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

чтобы заработало CreateOleObject

, надо подключить файл ComObj.hpp. В Билдере, разумеется, этот код как раз для него и написан.

@archerix · 09.02.2020, 13:51

Спасибо. Перед кодом написано просто "С++", я подумал, что это как-то можно выкружить и в обычном С++.

Я с таким по Дельфи знаком, и мне интересно понять, возможно ли так же делать из обычного С++. То, что в Билдере оно есть, я знаю. Хотя по-моему, там это все как-то не так наглядно, как в Дельфи.

@archerix · 10.02.2020, 00:01

ComObj подключил, все равно неясно - а какого типа должно быть это vVar? Мне казалось, Variant или OleVariant, но компилятор их не понимает.

@volvo · 10.02.2020, 15:59

Это Variant-ы, и компилятор от borland-а их прекрасно понимает, ибо описан этот тип в модуле System, который подключается к любому проекту по умолчанию.

@archerix · 11.02.2020, 03:25

Ага, заработало, что-то сразу я напутал, видимо.

А вот такой вопрос - в примере открывается готовый документ. А как создать новый?

И еще - а как обозначается параметр - "пустышка" для методов документа и приложения?

Добавлено через 44 минуты
С первым вопросом разобрался.

C++

1 2	vVarDocs = vVarApp.OlePropertyGet("Documents"); vVarDocs.OleProcedure("Add");

@archerix · 11.02.2020, 11:12

Чего-то никак не удается просто добавить текст в Ворд, все время ругается на ошибки с типами

Пробовал так:

C++

1 2	vVarApp.OlePropertyGet("ActiveDocument").OlePropertyGet("Content") .OleProcedure("InsertAfter",vtexty);

Или так, по-хитрому:

C++

vVarParagraphs=vVarDoc.OlePropertyGet("Paragraphs");
vVarParagraph=vVarParagraphs.OleFunction("Item",1);
vVarParagraph.OlePropertyGet("Range").
             OlePropertySet("Text","123");

Пока получилось только передавать по одному символу типа Char, при этом в документе возникает его номер, а не он сам

@volvo · 11.02.2020, 12:30

C++

1 2	vVarApp.OlePropertyGet("ActiveDocument").OlePropertyGet("Content") .OleProcedure("InsertAfter", WideString(vtexty));

- никогда проблем не было...

@archerix · 11.02.2020, 13:59

Ну а у меня вот так вот

C++

stexty="123";
vtexty="Hello, World";
ctexty='a';
 
vVarApp.OlePropertyGet("ActiveDocument").OlePropertyGet("Content")
                     .OleProcedure("InsertAfter",vtexty);

Пробую подставлять их по очереди, переменные имеют тип строковый, вариант и чар соответственно. Работает только чар, и то странно - вместо буквы передается ее код. Остальные выкидывают сообщение об ошибке типов.

Добавлено через 9 минут
Попробовал передать вот так, нашел в интернете вроде бы работающий пример

C++

1	stexty.c_str()

Передался первый символ, после чего программа упала. У меня Билдер какой-то неправильный что ли?

Добавлено через 57 минут
А кто-то пробовал пользовать Ворд путем подключения библиотеки MSWORD.OLB? Я правда, пока не могу вникнуть как ее подключить. Примеры кода выглядят как-то более удобно и привычно, чем тут.

@archerix · 12.02.2020, 13:48

И открыть существующий файл тоже не выходит. Тут stexty - строка.

C++

   stexty = "D:\testB.docx";
   wrd = CreateOleObject("Word.Application");
   wrd.OlePropertySet("Visible",true);
   wrd.OlePropertyGet("Documents").OleProcedure("Open", stexty.c_str());

Вылетает сообщение, что файл не найден, а в скобочках приписка - 'D:\%09est'. Что бы это значило?

Добавлено через 6 минут
Такое чувство, что строка с названием файла передается не полностью, часть символов в конце отбрасывается.

@liv · 12.02.2020, 13:52

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

"D:\testB.docx"

C++

1	"D:\\testB.docx"

@archerix · 12.02.2020, 13:58

Так изначально было написано - тогда вылетала ошибка "Неверное имя каталога". Собственно, потому и попробовал с одной чертой для опыту

Весь мозг сломал уже, не знаю, что еще попробовать.

Название, расширение и само наличие файла десять раз перепроверено. Пробовал эту строку из переменой забивать в консоль - запускается.

@archerix · 13.02.2020, 03:24

Вроде удалось угадать - надо передавать текст как WideString. Интересно это только у меня так оригинально?

@archerix · 13.02.2020, 12:56

Можно тут спросить - а как таким образом выполнять поиск и замену в Ворде? Или лучше создать новую тему? В найденных в тырнете статьях не увидел такого

@archerix · 14.02.2020, 01:36

Ну ладно, сам делюсь результатами изысканий в тырнетах и опытов

Функция "заменить все", насколько понимаю. У меня работает.

C++

1 2	vVarApp.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute", WideString("World"), false, false, false, false, false, true, 1, false, WideString("Planet"), 2);

И есть такая расшифровка параметров:

OleProcedure ("Execute",
s1/*Текст, который будем менять*/,
false/*учитывать регистрe*/,
false/*Только полное слово*/,
false/*Учитывать универсальные символы*/,
false/*Флажок Произносится как*/,
false/*Флажок Все словоформы*/,
true/*искать вперед*/,
1/*Активация кнопки Найти далее*/,
false/* Задание формата */,
s2/*На что заменить*/,
2/*Заменить все*/);

Добавлено через 58 минут
А кто знает, как выделить определенный фрагмент текста, с такого-то символа по такой-то?

@archerix 2 / 2 / 1 Регистрация: 08.02.2020 Сообщений: 215
	13.02.2020, 03:24	16
	Вроде удалось угадать - надо передавать текст как WideString. Интересно это только у меня так оригинально? 0

@archerix 2 / 2 / 1 Регистрация: 08.02.2020 Сообщений: 215
	13.02.2020, 12:56	17
	Можно тут спросить - а как таким образом выполнять поиск и замену в Ворде? Или лучше создать новую тему? В найденных в тырнете статьях не увидел такого 0

@archerix 2 / 2 / 1 Регистрация: 08.02.2020 Сообщений: 215
	09.02.2020, 12:44	4
	А какие библиотеки надо подключить, чтобы заработало CreateOleObject? 0

@volvo Супер-модератор 32932 / 21257 / 8161 Регистрация: 22.10.2011 Сообщений: 36,514 Записей в блоге: 8
	09.02.2020, 12:57	5
	Сообщение от archerix чтобы заработало CreateOleObject , надо подключить файл `ComObj.hpp`. В Билдере, разумеется, этот код как раз для него и написан. 0

@archerix 2 / 2 / 1 Регистрация: 08.02.2020 Сообщений: 215
	09.02.2020, 13:51	6
	Спасибо. Перед кодом написано просто "С++", я подумал, что это как-то можно выкружить и в обычном С++. Я с таким по Дельфи знаком, и мне интересно понять, возможно ли так же делать из обычного С++. То, что в Билдере оно есть, я знаю. Хотя по-моему, там это все как-то не так наглядно, как в Дельфи. 0

@archerix 2 / 2 / 1 Регистрация: 08.02.2020 Сообщений: 215
	10.02.2020, 00:01	7
	ComObj подключил, все равно неясно - а какого типа должно быть это vVar? Мне казалось, Variant или OleVariant, но компилятор их не понимает. 0

@volvo Супер-модератор 32932 / 21257 / 8161 Регистрация: 22.10.2011 Сообщений: 36,514 Записей в блоге: 8
	10.02.2020, 15:59	8
	Это Variant-ы, и компилятор от borland-а их прекрасно понимает, ибо описан этот тип в модуле System, который подключается к любому проекту по умолчанию. 0

@archerix 2 / 2 / 1 Регистрация: 08.02.2020 Сообщений: 215
	12.02.2020, 13:58	15
	Так изначально было написано - тогда вылетала ошибка "Неверное имя каталога". Собственно, потому и попробовал с одной чертой для опыту Весь мозг сломал уже, не знаю, что еще попробовать. Название, расширение и само наличие файла десять раз перепроверено. Пробовал эту строку из переменой забивать в консоль - запускается. 0