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

@tokadzu · Регистрация: 11.12.2009

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

Имеется программа состоящая из главной и дочерней формы. В дочерней форме таблица. Следует сохранить данные их таблицы в документ 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();
}
//---------------------------------------------------------------------------

@Ex_Soft · 11.12.2009, 13:13

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

документ не сохраняется и выдает ошибку, хотя документ Word открывается

Дык, он, таки, сохраняется или НЕ сохраняется?

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

выдает ошибку

тынць

@tokadzu · 11.12.2009, 14:11 **[ТС]**

Написано нормально! Сам Word открывается из программы, операции по созданию и заполнению выполняются и только в 146 строке выдает ошибку и, тем самым, не сохраняет документ.

@Ex_Soft · 11.12.2009, 15:51

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

Написано нормально!

Во-первых: не орите...
Во-вторых: разницу между

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

документ Word открывается

и

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

Сам Word открывается

различаете?

C++
1
Document.OleProcedure("SaveAs",(TVariant)OutputDoc);

?

@tokadzu · 11.12.2009, 15:59 **[ТС]**

Так открывается сам 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)'

@Ex_Soft · 11.12.2009, 16:05

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

Ошибки:
[C++ Error] MainWindow.cpp(148): E2451 Undefined symbol 'OutputDoc'

/me думает: держите меня двое...

C++
1
Doc.OleProcedure("SaveAs",(TVariant)CurDirF);

@tokadzu · 11.12.2009, 16:12 **[ТС]**

Эммм. Я так тоже пробовал и результат одинаков.

Только ошибки теперь:
[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)'

@Ex_Soft · 11.12.2009, 16:23

Сообщение от 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.

@tokadzu · 11.12.2009, 16:44 **[ТС]**

Всё, заработало!!! Ура. Большое спасибо

Правда я так и не понял в чем ошибка была...

13.04.2010, 12:39

вот простой код:

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?

@}|{EHbKA · 22.03.2012, 22:10

А можно вставлять текст в ворд из edit'a в определенную строку с набранным текстом???
Например после слова "Фамилия" из edit_fam вставить его текст.

@Ex_Soft · 24.03.2012, 00:12

bookmark

@}|{EHbKA · 24.03.2012, 05:45

Я не плохо знаю английский, но ничего там не понял.
Причем тут Using the Bookmark Object??

@Ex_Soft · 24.03.2012, 17:48

Сообщение от }|{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");
...

Новые блоги и статьи Все статьи Все блоги /
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .

@tokadzu 0 / 0 / 0 Регистрация: 11.12.2009 Сообщений: 7
	11.12.2009, 14:11 [ТС]
	Написано нормально! Сам Word открывается из программы, операции по созданию и заполнению выполняются и только в 146 строке выдает ошибку и, тем самым, не сохраняет документ. 0

@tokadzu 0 / 0 / 0 Регистрация: 11.12.2009 Сообщений: 7
	11.12.2009, 16:12 [ТС]
	Эммм. Я так тоже пробовал и результат одинаков. Только ошибки теперь: [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

@tokadzu 0 / 0 / 0 Регистрация: 11.12.2009 Сообщений: 7
	11.12.2009, 16:44 [ТС]
	Всё, заработало!!! Ура. Большое спасибо Правда я так и не понял в чем ошибка была... 0

@}\|{EHbKA 2 / 2 / 0 Регистрация: 21.03.2012 Сообщений: 46
	22.03.2012, 22:10
	А можно вставлять текст в ворд из edit'a в определенную строку с набранным текстом??? Например после слова "Фамилия" из edit_fam вставить его текст. 0

@Ex_Soft 213 / 107 / 15 Регистрация: 28.01.2009 Сообщений: 481
	24.03.2012, 00:12
	bookmark 0

@}\|{EHbKA 2 / 2 / 0 Регистрация: 21.03.2012 Сообщений: 46
	24.03.2012, 05:45
	Я не плохо знаю английский, но ничего там не понял. Причем тут Using the Bookmark Object?? 0