Внести изменения в существующий документ Word

@annafonova · Регистрация: 12.12.2016

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

Доброго времени суток!
Мне нужно записать в файл строки. В документе Word содержится таблица. Мне необходимо в эту таблицу записать в определенные ячейки данные из программы.
В местах, куда нужно вносить, созданы закладки.
Сделана программа с помощью Embarcadero C++ Builder.
При нажатии на кнопку вылетает ошибка: Неверный тип переменной.
Подскажите, как вообще это можно сделать?
Может быть нужно работать с другой программой?
Что я делаю не так?

Ниже приведен код программы:

Unit1.cpp:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#include <vcl.h>
#pragma hdrstop
 
#include <OleServer.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Variant WordApp,Document, vBookmarks, vBookmark, Doc,  vVarApp, vVarDocs, vVarDoc, vVarParagraph, vVarParagraphs, sh;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
        WordApp=CreateOleObject("Word.Application");
        Document=WordApp.OlePropertyGet("Documents");
        Document.OleProcedure("Add", "d:\\abc1.dot");
        Doc=Document.OleFunction("Item",1);
        Doc.OleProcedure("Activate");
        vBookmarks=Doc.OlePropertyGet("Bookmarks"); //получаем свойство "Закладки"
        vBookmark=vBookmarks.OleFunction("Item","abc1"); //работаем с закладкой "ФИО"
        vBookmark.OlePropertyGet("Range").OlePropertySet("Text","111");
        WordApp.OlePropertySet("Visible",true);
 
 
}

Unit1.h:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <OleServer.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    TEdit *Edit1;
    TEdit *Edit2;
    void __fastcall Button1Click(TObject *Sender);
 
private:    // User declarations
 
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
 
 
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

@D1973 · 26.02.2019, 19:29

C++
1
#include <ComObj.hpp>

Ну и вот еще информация к размышлению

@annafonova · 26.02.2019, 19:35 **[ТС]**

Добавила.
Такая же ошибка.
Информацию по ссылке не помогает.

Добавлено через 1 минуту
По идее при нажатии на кнопку должно окно открываться?

@volvo · 26.02.2019, 23:31

C++
1
2
3
4
5
6
7
8
9
        WordApp=CreateOleObject("Word.Application");
        Document=WordApp.OlePropertyGet("Documents");
        Document.OleProcedure("Add", WideString("d:\\abc1.dot"));
        Doc=Document.OleFunction("Item",1);
        Doc.OleProcedure("Activate");
        vBookmarks=Doc.OlePropertyGet("Bookmarks"); //получаем свойство "Закладки"
        vBookmark=vBookmarks.OleFunction("Item",WideString("abc1")); //работаем с закладкой "ФИО"
        vBookmark.OlePropertyGet("Range").OlePropertySet("Text",WideString("111"));
        WordApp.OlePropertySet("Visible",true);

Внимательнее со строковыми типами, они должны быть WideString-ами, а не просто char*...

@annafonova · 27.02.2019, 13:03 **[ТС]**

Спасибо большое!
Помогло!

@annafonova · 28.02.2019, 21:05 **[ТС]**

Подскажите пожалуйста, как задать путь к файлу, чтобы можно было запустить exe на другом компьютере?

C++
1
Document.OleProcedure("Add", WideString("d:\\abc1.dot"));

Добавлено через 44 минуты
Нашла ответ:

C++
1
Document.OleProcedure("Add", WideString(ExtractFilePath(ParamStr(0)) + "чек.dot"));

@volvo · 28.02.2019, 21:11

Далеко пришлось искать?
Запуск exe на другом компьютере, задание расположения шаблона dot

Вот поэтому не надо задавать один и тот же вопрос в разных местах. Кто-то тебе ответил, а ты вроде и тут "сама нашла", и там "а пошел ты, не буду даже спасибо говорить". А в следующий раз я тоже подумаю, стоит ли отвечать. И посмотрим тогда, где ты будешь что искать, и что найдешь...

@annafonova · 28.02.2019, 21:14 **[ТС]**

Я вроде бы писала спасибо. Наверное не отправила.
Я вас услышала. Прошу прощения.

@annafonova · 01.03.2019, 11:59 **[ТС]**

Добрый день!
Подскажите пожалуйста, что нужно прописать, чтобы распечатать документ Word из программы?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@annafonova 0 / 0 / 0 Регистрация: 12.12.2016 Сообщений: 31
	26.02.2019, 19:35 [ТС]
	Добавила. Такая же ошибка. Информацию по ссылке не помогает. Добавлено через 1 минуту По идее при нажатии на кнопку должно окно открываться? 0

@annafonova 0 / 0 / 0 Регистрация: 12.12.2016 Сообщений: 31
	27.02.2019, 13:03 [ТС]
	Спасибо большое! Помогло! 0

@volvo Супер-модератор 33376 / 21500 / 8236 Регистрация: 22.10.2011 Сообщений: 36,896 Записей в блоге: 11
	28.02.2019, 21:11
	Далеко пришлось искать? Запуск exe на другом компьютере, задание расположения шаблона dot Вот поэтому не надо задавать один и тот же вопрос в разных местах. Кто-то тебе ответил, а ты вроде и тут "сама нашла", и там "а пошел ты, не буду даже спасибо говорить". А в следующий раз я тоже подумаю, стоит ли отвечать. И посмотрим тогда, где ты будешь что искать, и что найдешь... 0

@annafonova 0 / 0 / 0 Регистрация: 12.12.2016 Сообщений: 31
	28.02.2019, 21:14 [ТС]
	Я вроде бы писала спасибо. Наверное не отправила. Я вас услышала. Прошу прощения. 0

@annafonova 0 / 0 / 0 Регистрация: 12.12.2016 Сообщений: 31
	01.03.2019, 11:59 [ТС]
	Добрый день! Подскажите пожалуйста, что нужно прописать, чтобы распечатать документ Word из программы? 0