4 / 4 / 0
Регистрация: 14.03.2010
Сообщений: 69
1

Запись текста в DOC файл

15.05.2010, 23:49. Показов 3689. Ответов 11
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Ребят если не сложно набросайте простенький пример по записи данных с Edit"ов в доковский файл.
А то я читаю пытаюсь разобраться а что то не получается=(((((
0
Лучшие ответы (1)
15.05.2010, 23:49
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
15.05.2010, 23:49
Ответы с готовыми решениями:

Просмотр текста, который вмещает в себе .doc файл в окне программы
Возможно ли сделать так, чтобы в окне программы можно было открыть .doc файл способом похожим как на скриншоте? Так, чтобы можно было в...

Запись и чтение в doc-файл
Подскажите, пожалуйста, как произвести запись/чтение файл.doc

Чтение, редактирование и запись в .doc файл
у меня совсем небольшой опыт программирования, поэтому прошу помощи... нужно открыть .doc файл, прочитать его, заменить несколько символов...

11
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
16.05.2010, 20:05 2
Лучший ответ Сообщение было отмечено как решение

Решение

Вот тебе простенький пример
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
AnsiString str;
Variant v,vVarParagraph,Var,Dms,Word;
Word = CreateOleObject("Word.Application");
Word.OlePropertySet("Visible", false);
Variant Doc = Word.OlePropertyGet("Documents");
Doc.OleProcedure("Add");
 
if(Doc.OlePropertyGet("Count") != 1)
{
MessageBox(0, "Îøèáêà ïðè ñîçäàíèè äîêóìåíòîâ",
"Îøèáêà", MB_OK);
 
return;
}
Dms=Doc.OleFunction("Item",1);
//Ñìîòðåòü áóäåì òîæå íà ïåðâûé äîêóìåíò
Dms.OleProcedure("Activate");
Var=Dms.OlePropertyGet("Paragraphs");
 
Dms.OlePropertyGet("PageSetup").OlePropertySet("TopMargin",28.35);
Dms.OlePropertyGet("PageSetup").OlePropertySet("LeftMargin",28.35);
Dms.OlePropertyGet("PageSetup").OlePropertySet("RightMargin",28.35);
Dms.OlePropertyGet("PageSetup").OlePropertySet("BottomMargin",28.35);
Var.OleProcedure("Add");
str="ÊÎËÈ×ÅÑÒÂÎ";
vVarParagraph=Var.OleFunction("Item",1);
v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
v.OlePropertySet("Size",22);
v.OlePropertySet("Bold",true);
vVarParagraph.OlePropertyGet("Range").
OlePropertySet("Text",str.c_str());
vVarParagraph.OlePropertySet("Alignment",1);
Var.OleProcedure("Add");
Var.OleProcedure("Add");
Var.OleProcedure("Add");
str = "\t\t"+Label2->Caption+"\t\t\t\t\t\t\t\t"+Label3->Caption;
vVarParagraph=Var.OleFunction("Item", 4);
v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
v.OlePropertySet("Size",16);
vVarParagraph.OlePropertyGet("Range").
OlePropertySet("Text",str.c_str());
vVarParagraph.OlePropertySet("Alignment",3);
Var.OleProcedure("Add");
str = "\t\t"+Label4->Caption+"\t\t\t\t\t\t\t\t"+Label5->Caption;
vVarParagraph=Var.OleFunction("Item", 5);
v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
v.OlePropertySet("Size",16);
vVarParagraph.OlePropertyGet("Range").
OlePropertySet("Text",str.c_str());
vVarParagraph.OlePropertySet("Alignment",3);
Var.OleProcedure("Add");
str = "\t\t"+Label6->Caption+"\t\t\t\t\t\t\t\t"+Label7->Caption;
vVarParagraph=Var.OleFunction("Item", 6);
v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
v.OlePropertySet("Size",16);
vVarParagraph.OlePropertyGet("Range").
OlePropertySet("Text",str.c_str());
vVarParagraph.OlePropertySet("Alignment",3);
Var.OleProcedure("Add");
str = "\t\t"+Label8->Caption+"\t\t\t\t\t\t\t\t"+Label9->Caption;
vVarParagraph=Var.OleFunction("Item", 7);
v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
v.OlePropertySet("Size",16);
vVarParagraph.OlePropertyGet("Range").
OlePropertySet("Text",str.c_str());
vVarParagraph.OlePropertySet("Alignment",3);
Var.OleProcedure("Add");
3
11 / 11 / 7
Регистрация: 23.12.2009
Сообщений: 300
16.05.2010, 21:35 3
а что с ним дальше делать?
ато оно создает процес винворд а посмотреть творение в меня не получается
0
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
16.05.2010, 21:55 4
Hovercat ,тебе что весь код показать?
0
11 / 11 / 7
Регистрация: 23.12.2009
Сообщений: 300
16.05.2010, 22:21 5
Цитата Сообщение от Sasha Посмотреть сообщение
Hovercat ,тебе что весь код показать?
если можно, то покажи
а не то скажи как сделать чтоб посмотреть созданный документ
0
125 / 65 / 9
Регистрация: 19.04.2010
Сообщений: 196
16.05.2010, 22:28 6
Word.OlePropertySet("Visible", true);

будешь видить как ворд все твое творение делает

Добавлено через 1 минуту
Самый лучший хелп это открываешь Ворд переходешь в режим программирования и Идешь в ее справку
Дальше Нет тебе все сам раскажет.
Тебе только с Проперту Функцтион и Процедуре работать придется

Добавлено через 1 минуту
Сам на работе делал чтобы отчеты в Ворл писать можно было.
Скажу сразу чтобы твоя прога работала и с 2003 и 2007 вордом лучше использовать OLE тогда все будет пахать как надо.
Если конечно не будешь свойства 2007 использовать которых нет в 2003
2
11 / 11 / 7
Регистрация: 23.12.2009
Сообщений: 300
16.05.2010, 22:55 7
Цитата Сообщение от Sudoki Посмотреть сообщение
переходешь в режим программирования
а как перейти в режим програмирования
0
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
16.05.2010, 23:02 8
Цитата Сообщение от Hovercat Посмотреть сообщение
если можно, то покажи
а не то скажи как сделать чтоб посмотреть созданный документ
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
#include <sysvari.h>
#include "ComObj.hpp"
void __fastcall TStaticF::WordClick(TObject *Sender)
{
 AnsiString str;
 Variant v,vVarParagraph,Var,Dms,Word;
 Word = CreateOleObject("Word.Application");
 Word.OlePropertySet("Visible", false);
 Variant Doc = Word.OlePropertyGet("Documents");
 Doc.OleProcedure("Add");
 
 if(Doc.OlePropertyGet("Count") != 1)
 {
  MessageBox(0, "Îøèáêà ïðè ñîçäàíèè äîêóìåíòîâ",
                 "Îøèáêà", MB_OK);
 
  return;
 }
 Dms=Doc.OleFunction("Item",1);
 //Ñìîòðåòü áóäåì òîæå íà ïåðâûé äîêóìåíò
 Dms.OleProcedure("Activate");
 Var=Dms.OlePropertyGet("Paragraphs");
 
 Dms.OlePropertyGet("PageSetup").OlePropertySet("TopMargin",28.35);
 Dms.OlePropertyGet("PageSetup").OlePropertySet("LeftMargin",28.35);
 Dms.OlePropertyGet("PageSetup").OlePropertySet("RightMargin",28.35);
 Dms.OlePropertyGet("PageSetup").OlePropertySet("BottomMargin",28.35);
 Var.OleProcedure("Add");
 str="ÊÎËÈ×ÅÑÒÂÎ";
 vVarParagraph=Var.OleFunction("Item",1);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",22);
 v.OlePropertySet("Bold",true);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",1);
 Var.OleProcedure("Add");
 Var.OleProcedure("Add");
 Var.OleProcedure("Add");
 str = "\t\t"+Label2->Caption+"\t\t\t\t\t\t\t\t"+Label3->Caption;
 vVarParagraph=Var.OleFunction("Item", 4);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",16);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",3);
 Var.OleProcedure("Add");
 str = "\t\t"+Label4->Caption+"\t\t\t\t\t\t\t\t"+Label5->Caption;
 vVarParagraph=Var.OleFunction("Item", 5);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",16);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",3);
 Var.OleProcedure("Add");
 str = "\t\t"+Label6->Caption+"\t\t\t\t\t\t\t\t"+Label7->Caption;
 vVarParagraph=Var.OleFunction("Item", 6);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",16);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",3);
 Var.OleProcedure("Add");
 str = "\t\t"+Label8->Caption+"\t\t\t\t\t\t\t\t"+Label9->Caption;
 vVarParagraph=Var.OleFunction("Item", 7);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",16);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",3);
 Var.OleProcedure("Add");
 str = "\t\t"+Label10->Caption+"\t\t\t\t\t"+Label11->Caption;
 vVarParagraph=Var.OleFunction("Item", 8);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",16);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",3);
 Var.OleProcedure("Add");
 str = "\t\t"+Label12->Caption+"\t\t\t\t\t\t"+Label13->Caption;
 vVarParagraph=Var.OleFunction("Item", 9);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",16);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",3);
 Var.OleProcedure("Add");
 str = "\t\t"+Label14->Caption+"\t\t"+Label15->Caption;
 vVarParagraph=Var.OleFunction("Item", 10);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",16);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",3);
 Var.OleProcedure("Add");
 str = "\t\t"+Label16->Caption+"\t\t\t\t"+Label17->Caption;
 vVarParagraph=Var.OleFunction("Item", 11);
 v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
 v.OlePropertySet("Size",16);
 vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vVarParagraph.OlePropertySet("Alignment",3);
 Word.OlePropertySet("Visible", true);
 keybd_event(VK_CONTROL, 0, 0 ,0);
 keybd_event(VK_END, 0, 0 ,0);
 keybd_event(VK_END, 0, KEYEVENTF_KEYUP,0);
 keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP,0);
}
2
4 / 4 / 0
Регистрация: 14.03.2010
Сообщений: 69
18.05.2010, 00:55  [ТС] 9
Sasha, если не сложно можешь мне на мыло скинуть данный проект????? ну или сюда архивчик
0
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
18.05.2010, 09:19 10
Цитата Сообщение от A1mazik Посмотреть сообщение
Sasha, если не сложно можешь мне на мыло скинуть данный проект????? ну или сюда архивчик
проект сильно большой поэтому выкладывать не стану, но на вопросы которые будешь ставить отвечу
0
4 / 4 / 0
Регистрация: 14.03.2010
Сообщений: 69
07.06.2010, 23:06  [ТС] 11
Sasha, можеш сказать что у тя за компоненты на форме расположены???
0
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
08.06.2010, 09:38 12
Editы и Lablы
0
08.06.2010, 09:38
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.06.2010, 09:38
Помогаю со студенческими работами здесь

Чтение и запись в doc\docx файл
искал на форуме и в гугле и так не нашёл нормальной статьи как считать данные из файла doc\docx и записать тоже.

Копирование текста из doc-файла в txt-файл
как с помощью бат файла скопировать текст с файла (.doc) в другой файл (.txt) и наоборот, если так нельзя ? если ето возможно ...

Запись текста в файл, чтение текста из файла, перепись текста из одного файла в другой файл
Составить программу, в которой организованы следующие действия: запись текста в файл, чтение текста из файла, перепись текста из...

Запись текста в файл
namespace ConsoleApp1 { class Program { static void Main(string args) { if...

Запись текста в файл
Всем привет!) Помогите пожалуйста с программкой на C#. Мне нужно записать текст введенный в textBox в файл. Т.е при нажатии на кнопку, он...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Пользуясь нейросетью возвращаюсь к вопросу альтернативных приводов поступательного движения.
Hrethgir 14.02.2025
Описание тут https:/ / habr. com/ ru/ articles/ 778118/ . Вопрос ответ You Привет. Скажи, есть-ли вещества, которые могут менять жидкое состояние на желеобразное под воздействием ультразвука? . . .
Ошибка "Another git process seems to be running in this repository"
hw_wired 14.02.2025
При работе с git можно столкнуться с довольно раздражающей ошибкой "Another git process seems to be running in this repository". Эта ситуация возникает, когда система контроля версий пытается. . .
Ошибка "java.lang.NoCl­assDefFou­ndErro­r: javax/xml/bind/JAXBException"
hw_wired 14.02.2025
Как разработчики Java-приложений, мы сталкиваемся с разными ошибками, но одна из них - java. lang. NoClassDefFoundError: javax/ xml/ bind/ JAXBException - стала особенно актуальной после выхода Java 9. . . .
Отличия for-in от for-of в JavaScript
hw_wired 14.02.2025
Когда-то единственным способом перебора элементов массива или свойств объекта был классический цикл for с счетчиком. Да, он отлично справлялся с задачей, но код получался громоздким и не очень. . .
Отличия implementation, api и compile в Gradle
hw_wired 14.02.2025
Управление зависимостями - одна из ключевых задач при разработке современных приложений на Java и Kotlin. Система сборки Gradle предоставляет гибкие и мощные средства для работы с зависимостями,. . .
Что лучше: require или import/export в JavaScript
hw_wired 14.02.2025
Модульность в JavaScript прошла долгий путь эволюции, и сегодня у разработчиков есть два основных способа организации модулей: старый добрый require из системы CommonJS и современные import/ export из. . .
Ошибка "Uncaught SyntaxError: Cannot use import statement outside a module"
hw_wired 14.02.2025
Думаю, многие разработчики сталкивались с ошибкой "Uncaught SyntaxError: Cannot use import statement outside a module" при попытке использовать современный синтаксис импорта в JavaScript. Эта. . .
Ошибка Docker "Got permission denied while trying to connect to the Docker daemon socket at"
hw_wired 14.02.2025
Разработка с использованием Docker может иногда преподносить неожиданные сюрпризы, и одним из самых распространенных камней преткновения становится ошибка с отказом в доступе к демону Docker. . . .
Ошибка "No 'Access-Control-Allow-Origin' header is present on the requested resource"
hw_wired 14.02.2025
При разработке современных веб-приложений нередко сталкиваешься с ошибкой "No 'Access-Control-Allow-Origin' header is present on the requested resource". Эта проблема возникает из-за политики. . .
Как закрыть порт в Linux
hw_wired 14.02.2025
Управление сетевыми портами в Linux - непростая, но важная задача для обеспечения безопасности системы. Каждый открытый порт - это потенциальная уязвимость, через которую злоумышленики могут. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru