Форум программистов, компьютерный форум, киберфорум
C++ Builder
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++ > C++ > C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/26: Рейтинг темы: голосов - 26, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 11.12.2009
Сообщений: 7
1

Не могу сохранить документ Word

11.12.2009, 02:58. Показов 5442. Ответов 13
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Имеется программа состоящая из главной и дочерней формы. В дочерней форме таблица. Следует сохранить данные их таблицы в документ Word с помощью OLE-объектов. Когда самостоятельно заполняешь таблицу, то сохранение работает. А когда загружаешь данные в таблицу из файла, документ не сохраняется и выдает ошибку, хотя документ Word открывается, таблица в нем создается и данные экспортируются. Перерыл тучу информации по многим форумам, но так и не решил проблему.

Вот содержание .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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "MainWindow.h"
#include "DataWindow.h"
#include "Func.h"
#include "ComObj.hpp"
#include "utilcls.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::NewClick(TObject *Sender)
{
Application->CreateForm(__classid(TDataForm), &DataForm);
if (MDIChildCount>0)
        {
        New->Enabled=false;
        Open->Enabled=true;
        Save->Enabled=true;
        SaveAs->Enabled=true;
        }
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::ExitClick(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::OpenClick(TObject *Sender)
{
if(OpenDialog1->Execute())
{
        TStringList *List = new TStringList();
        List->LoadFromFile(OpenDialog1->FileName);
        int count = List->Count+1;
        ClearTable();
        if(count > 1) DataForm->Table->RowCount=count;
        else DataForm->Table->RowCount=2;
        String s;
        for(int i=1; i<count; i++)
                {
                s=List->Strings[i-1];
                for( int j=1; j<=s.Length(); j++)
                        {
                        if(s[j]==' ')
                                {
                                for (int k=1; k<j; k++)
                                DataForm->Table->Cells[1][i]=DataForm->Table->Cells[1][i]+ s[k];
                                for (int k=j+1; k<=s.Length(); k++)
                                DataForm->Table->Cells[2][i]=DataForm->Table->Cells[2][i]+ s[k];
                                }
                        }
                }
        delete List;
        Column();
        DataForm->Caption = ""+ExtractFileName(OpenDialog1->FileName)+"";
        }
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::SaveClick(TObject *Sender)
{
Variant App, Doc, Docs, Pars, Par, Range, Tbl, Cell, v;
bool fStart;
if(!fStart)
        {
        try
                {
                App=CreateOleObject("Word.Application");
                fStart=true;
                }
        catch(...)
                {
                MessageBox(0, "Ошибка при открытии сервера Word",
                "Ошибка", MB_OK);
                return;
                }
        }
App.OlePropertySet("Visible",true);
Docs=App.OlePropertyGet("Documents");
Docs.OleProcedure("Add");
if(Docs.OlePropertyGet("Count") != 1)
        {
        MessageBox(0, "Ошибка при создании документов",
        "Ошибка", MB_OK);
        return;
        }
Doc=Docs.OleFunction("Item",1);
Doc.OleProcedure("Activate");
Pars = Doc.OlePropertyGet("Paragraphs");
Pars.OleProcedure("add");
Par=Pars.OleFunction("Item",1);
Par.OlePropertyGet("Range").OlePropertySet("Text","Исходные данные");
v=Par.OlePropertyGet("Range").OlePropertyGet("Font");
v.OlePropertySet("Color",255);
v.OlePropertySet("Size",20);
v.OlePropertySet("Name","Times New Roman");
v.OlePropertySet("Bold",true);
v.OlePropertySet("Underline",1);
v.OlePropertySet("Shadow",true);
Par.OlePropertySet("Alignment",1);
Pars.OleProcedure("add");
Pars.OleProcedure("add");
Par=Pars.OleFunction("Item",3);
Range = Par.OlePropertyGet("Range");
Par.OlePropertySet("Alignment",1);
Doc.OlePropertyGet("Tables").OleProcedure("Add",Range,
        DataForm->Table->RowCount,3,1,1);
Tbl=Doc.OlePropertyGet("Tables").OleFunction("Item",1);
Tbl.OlePropertyGet("Rows").OlePropertySet("Alignment",1);
Tbl.OleFunction("AutoFitBehavior",2);
App.OlePropertyGet("ActiveWindow").OlePropertyGet("View").
        OlePropertySet("TableGridlines",true);
Tbl.OleFunction("AutoFormat",1);
for (int j=1; j<=3; j++)
for(int i=1; i<=DataForm->Table->RowCount; i++)
        {
        Cell=Tbl.OleFunction("Cell",i,j);
        Cell.OleFunction("Select");
        v=App.OlePropertyGet("Selection").
              OlePropertyGet("Font");
        v.OlePropertySet("Size",16);
        v.OlePropertySet("Underline",0);
        v.OlePropertySet("Shadow",false);
        AnsiString Values=DataForm->Table->Cells[j-1][i-1];
        Cell.OlePropertyGet("Range").
                OlePropertySet("Text",Values.c_str());
        }
AnsiString CurDirF=GetCurrentDir()+"\\data\\"+
        DataForm->Caption+".doc";
Doc=Docs.OleFunction("Item",1);
App.OlePropertySet("DisplayAlerts",false);
ShowMessage("sdfsdf");
Doc.OleProcedure("SaveAs",CurDirF.c_str());
if(fStart) App.OleProcedure("Quit");
}
//---------------------------------------------------------------------------
А вот - дочерней:
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "DataWindow.h"
#include "MainWindow.h"
#include "Func.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDataForm *DataForm;
//---------------------------------------------------------------------------
__fastcall TDataForm::TDataForm(TComponent* Owner)
        : TForm(Owner)
{
Table->Cells[0][0]="Расход, кг/с";
Table->Cells[1][0]="Температура, С";
Table->Cells[2][0]="Уровень, ДМ";
}
//---------------------------------------------------------------------------
 
void __fastcall TDataForm::FormClose(TObject *Sender, TCloseAction &Action)
{
Action=caFree;
MainForm->New->Enabled=true;
MainForm->Open->Enabled=false;
MainForm->Save->Enabled=false;
MainForm->SaveAs->Enabled=false;
}
//---------------------------------------------------------------------------
 
void __fastcall TDataForm::TableKeyPress(TObject *Sender, char &Key)
{
if ((Key=='.') || (Key==',')) Key=',';
else  if ( (isdigit(Key)) || (Key==VK_CLEAR)
        || (Key == VK_BACK) ) {}
        else Key = 0;
}
//---------------------------------------------------------------------------
 
void __fastcall TDataForm::SB1Click(TObject *Sender)
{
Table->RowCount++;
}
//---------------------------------------------------------------------------
 
void __fastcall TDataForm::SB2Click(TObject *Sender)
{
Table->RowCount--;
if (Table->RowCount==2) Table->RowCount=3;
}
//---------------------------------------------------------------------------
 
void __fastcall TDataForm::SB3Click(TObject *Sender)
{
ClearTable();
}
//---------------------------------------------------------------------------
0
11.12.2009, 02:58
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 11.12.2009, 02:58
Ответы с готовыми решениями:

Сохранить документ Word через TWordApplication
Доброго времени суток! Есть не сложная задачка - необходимо открыть txt документ, скопировать текст в ворд, сохранить, закрыть. И так...

Как сохранить документ Word с Олеконтейнера
Документ Word грузится из патока в OleContainer, задача такова как сохранить с OleContainerа это документ в Wordе. TMemoryStream...

Хочу сохранить документ Word
есть такая ссылка в кэше Гугла. Как мне с нее достать и сохранить документ Ворд?

13
 Аватар для Ex_Soft
213 / 107 / 15
Регистрация: 28.01.2009
Сообщений: 481
11.12.2009, 13:13 2
Цитата Сообщение от tokadzu Посмотреть сообщение
документ не сохраняется и выдает ошибку, хотя документ Word открывается
Дык, он, таки, сохраняется или НЕ сохраняется?
Цитата Сообщение от tokadzu Посмотреть сообщение
выдает ошибку
тынць
0
0 / 0 / 0
Регистрация: 11.12.2009
Сообщений: 7
11.12.2009, 14:11  [ТС] 3
Написано нормально! Сам Word открывается из программы, операции по созданию и заполнению выполняются и только в 146 строке выдает ошибку и, тем самым, не сохраняет документ.
0
 Аватар для Ex_Soft
213 / 107 / 15
Регистрация: 28.01.2009
Сообщений: 481
11.12.2009, 15:51 4
Цитата Сообщение от tokadzu Посмотреть сообщение
Написано нормально!
Во-первых: не орите...
Во-вторых: разницу между
Цитата Сообщение от tokadzu Посмотреть сообщение
документ Word открывается
и
Цитата Сообщение от tokadzu Посмотреть сообщение
Сам Word открывается
различаете?
C++
1

Document.OleProcedure("SaveAs",(TVariant)OutputDoc);
?
0
0 / 0 / 0
Регистрация: 11.12.2009
Сообщений: 7
11.12.2009, 15:59  [ТС] 5
Так открывается сам Word, который создает документ (который открывается в Word'e).

C++
1

Document.OleProcedure("SaveAs",(TVariant)OutputDoc);
в таком виде не работает

Ошибки:
[C++ Error] MainWindow.cpp(148): E2451 Undefined symbol 'OutputDoc'
[C++ Error] MainWindow.cpp(148): E2285 Could not find a match for 'Variant::OleProcedure(char *,undefined)'
0
 Аватар для Ex_Soft
213 / 107 / 15
Регистрация: 28.01.2009
Сообщений: 481
11.12.2009, 16:05 6
Цитата Сообщение от tokadzu Посмотреть сообщение
Ошибки:
[C++ Error] MainWindow.cpp(148): E2451 Undefined symbol 'OutputDoc'
/me думает: держите меня двое...
C++
1

Doc.OleProcedure("SaveAs",(TVariant)CurDirF);
0
0 / 0 / 0
Регистрация: 11.12.2009
Сообщений: 7
11.12.2009, 16:12  [ТС] 7
Эммм. Я так тоже пробовал и результат одинаков.

Только ошибки теперь:
[C++ Error] MainWindow.cpp(148): E2031 Cannot cast from 'AnsiString' to 'TVariant'
[C++ Error] MainWindow.cpp(148): E2285 Could not find a match for 'Variant::OleProcedure(char *,undefined)'
0
 Аватар для Ex_Soft
213 / 107 / 15
Регистрация: 28.01.2009
Сообщений: 481
11.12.2009, 16:23 8
Цитата Сообщение от tokadzu Посмотреть сообщение
Эммм. Я так тоже пробовал и результат одинаков.

Только ошибки теперь:
[C++ Error] MainWindow.cpp(148): E2031 Cannot cast from 'AnsiString' to 'TVariant'
/me думает: гм... Стрянно... Сея строка выкушена из рабочего проекта
C++
1
2
3
4
5
6

...
AnsiString
     OutputDoc=ExtractFilePath(Application->ExeName)+"Word_out.doc";
...
Document.OleProcedure("SaveAs",(TVariant)OutputDoc);
...
Все сухо...

P.S. BCB6+Upg4.
1
0 / 0 / 0
Регистрация: 11.12.2009
Сообщений: 7
11.12.2009, 16:44  [ТС] 9
Всё, заработало!!! Ура. Большое спасибо
Правда я так и не понял в чем ошибка была...
0
mania04
13.04.2010, 12:39 10
вот простой код:
C++
1
2
3
4
5

WordApplication1->Selection->InsertAfter(snew);
AnsiString rs = "Это Word";
WordDocument1->Range(EmptyParam(), EmptyParam())->InsertAfter(StringToOleStr(rs));
WordApplication1->Selection->Collapse(&Direction);
    WordDocument1->Tables->Add(WordDocument1->Range(EmptyParam(), EmptyParam()), 7, 3);
Вопрос: почему таблица заменяет всё содержимое Word-a? Как таблицу добавить именно в конец Word-a?
2 / 2 / 0
Регистрация: 21.03.2012
Сообщений: 46
22.03.2012, 22:10 11
А можно вставлять текст в ворд из edit'a в определенную строку с набранным текстом???
Например после слова "Фамилия" из edit_fam вставить его текст.
0
 Аватар для Ex_Soft
213 / 107 / 15
Регистрация: 28.01.2009
Сообщений: 481
24.03.2012, 00:12 12
bookmark
0
2 / 2 / 0
Регистрация: 21.03.2012
Сообщений: 46
24.03.2012, 05:45 13
Я не плохо знаю английский, но ничего там не понял.
Причем тут Using the Bookmark Object??
0
 Аватар для Ex_Soft
213 / 107 / 15
Регистрация: 28.01.2009
Сообщений: 481
24.03.2012, 17:48 14
Цитата Сообщение от }|{EHbKA Посмотреть сообщение
Я не плохо знаю английский, но ничего там не понял.
Причем тут Using the Bookmark Object??
1. Bookmark -> Добавление и удаление закладок + галка на учитывать пробелы при вырезании и вставке
2.
C++
1
2
3
4
5
6
7
8

...
#if defined(TEST_BOOKMARK_BY_BOOKMARKS_COLLECTION)
   Document.OlePropertyGet("Bookmarks").OleFunction("Item",StringToOleStr("MyBookmark").OleProcedure("Select");
#else
   MSWord.OlePropertyGet("Selection").OleProcedure("GoTo",/*What*/ 0xFFFFFFFF /*wdGoToBookmark*/, /*Which*/ EmptyParam, /*Count*/ EmptyParam, /*Name*/ "MyBookmark");
#endif
MSWord.OlePropertyGet("Selection").OlePropertySet("Text","1234567890");
...
0
24.03.2012, 17:48
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 24.03.2012, 17:48
Помогаю со студенческими работами здесь

Сохранить документ Word с новым именем
Добрый вечер! Помогите, пожалуйста в решении вопроса, так как не связан абсолютно с макросами, данная простая проблема вызвала у меня...

Как сохранить из RichTextBox'а word-документ?
подскажите пожалуйста,как сохранить уже открытый word-документ из richtextbox-а,при этом сохранив формат?

Из Ms Access открыть и сохранить документ Word
Добрый день! Задача заключается в том, чтобы в форме Access при нажатии на кнопку создавался документ Word, после чего в него...

Сохранить Документ Word С Определённым Именем
Подскажите как сохранить документ Word созданный на основе шаблона, не открывая Word, с определённым именем. Как указать путь куда он будет...

Сохранить программно созданный документ Word
Здравствуйте, не получается сохранить документ MS Word. Вот что есть: object objMissing = System.Reflection.Missing.Value; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией через Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru