Передача данных из TextBox в Word

@KAN · Регистрация: 28.02.2009

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

Скажите плиз: как можно передать значения из текстового поля(например TextBox) в
документ Word?

@BasicMan · 20.03.2009, 18:48

Совет 370. Как передать текст из Rich Textbox в Microsoft Word

@xSander · 20.03.2009, 19:29

// Может вы имели ввиду из компонента TMemo сохранить текст в файл формата Microsoft Word (.doc) на локальный диск!!

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
 if(SaveDialog1->Execute())
 {
  char *filepath = new char[256];
  ZeroMemory(filepath, 256);
  StrCat(filepath, SaveDialog1->FileName.c_str());
  StrCat(filepath, ".doc");
  Memo1->Lines->SaveToFile(filepath);
  delete filepath;
 }
}

Добавлено через 1 минуту 51 секунду
Думаю труда не составит перевести из Builder C++ на Visual Basic

@BasicMan · 20.03.2009, 19:33

xSander, упс

эт чо делфи типо чоли %) дык а темо типо васик визуал

Вы случайно ничего не попутали

Добавлено через 2 минуты 26 секунд

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

Думаю труда не составит перевести из Builder C++ на Visual Basic

Думаю, не надо, тем более здесь все есть

Сообщение от Влад69

Совет 370. Как передать текст из Rich Textbox в Microsoft Word

@xSander · 20.03.2009, 19:33

вместо Memo просто используйте RichEdit

@BasicMan · 20.03.2009, 19:51

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

вместо Memo просто используйте RichEdit

а я чо использую?%) я думал чо ричедит, а вы мне глаза открыли, оказывается чото другое. Спасибо благодетель вы мой

шли б вы... в другое место спамить, тут уже все сказано
и еще для тех кто в танке, повторяю: "просто нажми сцылку"

@xSander · 20.03.2009, 20:17

Свое мнение оставь при себе!
Ты же не один здесь!
А других то же иногда думай, здесь каждый показывает знание накопленное практикой.
Людям может охота узнать что новое для себя!
Здесь нет ничего смешного!
Все с чего-то начинают!

@BasicMan · 20.03.2009, 20:32

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

Свое мнение оставь при себе!
Ты же не один здесь!
А других то же иногда думай, здесь каждый показывает знание накопленное практикой.
Людям может охота узнать что новое для себя!
Здесь нет ничего смешного!
Все с чего-то начинают!

эт чо, типо ультиматом?
Извините велик'ий и могучий xSander-San

тока хочу сказать, что во втором посте этой темы я уже ответил на вопрос, который задал уважаемый KAN, причем в Визуал Бейсике, а то что было после того (начиная с поста 3) это спам чистой воды. И пусть WooDooMan нас рассудит.
Хао. Я всё сказал

@Miller-1981 · 07.06.2009, 18:40

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

// Может вы имели ввиду из компонента TMemo сохранить текст в файл формата Microsoft Word (.doc) на локальный диск!!
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
if(SaveDialog1->Execute())
{
char *filepath = new char[256];
ZeroMemory(filepath, 256);
StrCat(filepath, SaveDialog1->FileName.c_str());
StrCat(filepath, ".doc");
Memo1->Lines->SaveToFile(filepath);
delete filepath;
}
}

Добавлено через 1 минуту 51 секунду
Думаю труда не составит перевести из Builder C++ на Visual Basic

че загнал то не понятно даже на билдере - тыж **проверено***цензурой** там в Word ниче создаешь - не переводишь - дурь написал и доволен - извини не удержался написал

@Toxa33rus · 09.06.2009, 11:23

Miller-1981, зачем же так грубо? Я не знаю работает тот код или нет, но даже я (не зная сю пэ пэ на хорошем уровне) вижу что он похож на правду.

09.06.2009, 15:07

Подскажите пожалуйста а как сделать в Visual Basic наоборот прочитать текст из документа Word и присвотить этот текст какой нибуть переменной.

Добавлено через 9 минут 30 секунд

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

Скажите плиз: как можно передать значения из текстового поля(например TextBox) в
документ Word?

Вот как сделал я:

Visual Basic
1
2
3
4
5
6
7
8
9
Dim str As String 
Dim edi As New Word.Application
str = txt1.Text
edi.Documents.Add
edi.Selection.TypeText (str)
edi.ActiveDocument.SaveAs FileName:="C:\test.doc"
edi.ActiveDocument.Close
edi.Application.Quit 
Set edi = Nothing

А вот как сделать обратно, прочитать текст из Word и присвоить его какой-нибудь переменной я не знаю. Подскажите кто нибудь плз.

@Toxa33rus · 10.06.2009, 13:04

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

как сделать обратно, прочитать текст из Word и присвоить его какой-нибудь переменной

Может как-то так:

Visual Basic
1
2
3
Set w = CreateObject("word.application")
w.documents.Open "D://123.rtf"
Set CurrentDoc = w.ActiveDocument

Не знаю только как до текста достучаться, но ссылка на документ присваивается и с ней можно работать как с обычным ворд документом. В конце только не забыть закрыть его и уничтожить переменные.

@BasicMan · 10.06.2009, 19:23

Toxa33rus, для того чтобы достучаться до текста - создаешь обычный макрос в ворде. Затем к каждой строчке где работа с Ворд-обьектами добавляешь в начале строку w (это переменная из CreateObject("word.application")).(как-никак ООП). собственно как-то так.

Не по теме:

я так работал с обьектом - листом ехеля через акцесс

вот пример обращения, но эт для ехеля ModExcell.zip

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@KAN 0 / 0 / 0 Регистрация: 28.02.2009 Сообщений: 9

	Передача данных из TextBox в Word 19.03.2009, 21:07. Показов 6075. Ответов 12 Метки нет (Все метки) Скажите плиз: как можно передать значения из текстового поля(например TextBox) в документ Word? 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	20.03.2009, 18:48
	Совет 370. Как передать текст из Rich Textbox в Microsoft Word 0

@xSander 13 / 13 / 3 Регистрация: 02.03.2009 Сообщений: 59
	20.03.2009, 19:33
	вместо Memo просто используйте RichEdit 0

@xSander 13 / 13 / 3 Регистрация: 02.03.2009 Сообщений: 59
	20.03.2009, 20:17
	Свое мнение оставь при себе! Ты же не один здесь! А других то же иногда думай, здесь каждый показывает знание накопленное практикой. Людям может охота узнать что новое для себя! Здесь нет ничего смешного! Все с чего-то начинают! 0

@Toxa33rus 3924 / 925 / 125 Регистрация: 16.04.2009 Сообщений: 1,977
	09.06.2009, 11:23
	Miller-1981, зачем же так грубо? Я не знаю работает тот код или нет, но даже я (не зная сю пэ пэ на хорошем уровне) вижу что он похож на правду. 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	10.06.2009, 19:23
	Toxa33rus, для того чтобы достучаться до текста - создаешь обычный макрос в ворде. Затем к каждой строчке где работа с Ворд-обьектами добавляешь в начале строку w (это переменная из CreateObject("word.application")).(как-никак ООП). собственно как-то так. Не по теме: я так работал с обьектом - листом ехеля через акцесс вот пример обращения, но эт для ехеля ModExcell.zip 0