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

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

11.12.2009, 02:58. Показов 5427. Ответов 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.12.2009, 02:58
Ответы с готовыми решениями:

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

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

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

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

13
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
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
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
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
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
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2012, 17:48
Помогаю со студенческими работами здесь

Word: сохранить документ с присвоение имени
Открыл документ поработал необходимо сохранить его в Каталоге, в котором есть документы типа : ...

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

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

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

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

Как сохранить постранично документ Word&
Прошу подсказки, как сохранить созданный в Word 2010 документ , текст + рисунки, схемы, в отдельные...


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

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru