VPF::Работа MS Word в Builder - Форум программистов

NightXXX

Дата 27.5.2007, 16:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 18.11.2006
Где: Россия

Репутация: нет
Всего: нет

1.Как вызвать Word и что бы там открылся какой то документ который нам нужно
2.Подскажите как работать c Word документами из программы, как его редоктировать?
3.Можно ли узнать в *.doc документе количесво старниц, из моей программы!
smile

sashasan

Дата 27.5.2007, 19:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 23.5.2007

Репутация: нет
Всего: нет

Цитата(NightXXX @ 27.5.2007, 16:42)

вот тут очень подробное описание как это делать - http://wladm.narod.ru/

NightXXX

Дата 30.5.2007, 01:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 18.11.2006
Где: Россия

Репутация: нет
Всего: нет

Хочу открыть Word, но не в форме илдера а обычно как открывается файл, и вообще как из программы открыть документ любой посредствам установленных программ.
Возможно ли это вообще или нет?

SenkraD

Дата 30.5.2007, 09:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 3.2.2006
Где: Украина::Киев

Репутация: 9
Всего: 23

Цитата(NightXXX @ 30.5.2007, 01:32

)

ообще как из программы открыть документ любой посредствам установленных программ.
Возможно ли это вообще или нет?

Да. Почитай о ShellExecute, WinExec, spawn, CreateProcess

--------------------

Имеющий язык - да не убоится спросить!

NightXXX

Дата 30.5.2007, 23:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 18.11.2006
Где: Россия

Репутация: нет
Всего: нет

А что никто не разу не пробывал так делать?
жалко
чего то посмотрел и ничего smile

SenkraD

Дата 31.5.2007, 08:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 3.2.2006
Где: Украина::Киев

Репутация: 9
Всего: 23

Цитата(NightXXX @ 30.5.2007, 23:19

)

А что никто не разу не пробывал так делать?

Что делать? С Word работать или запусать программы и открывать файлы?

--------------------

Имеющий язык - да не убоится спросить!

NightXXX

Дата 31.5.2007, 19:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 18.11.2006
Где: Россия

Репутация: нет
Всего: нет

открыть Word а в ней открыть заданный файл!

SenkraD

Дата 31.5.2007, 19:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 3.2.2006
Где: Украина::Киев

Репутация: 9
Всего: 23

Вот так тупо открываем документ Word:

Код


ShellExecute(0,"open","D:\\Test.doc","","",SW_SHOW);

А вот пример работы с Word через Builder с одной книги:ъ

Код


#include <vcl.h>
#include <ComObj.hpp>
#include <utilcls.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Variant  vWordApp,    // Приложение
         vWordDocs,    // Набор документов
         vWordDoc,       // Документ
         vDocParagraphs,
         vParagraph,
         vVarRange,
         vVarCell,
         vVarTable;

bool fStart;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------


//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 if(!fStart)
 {
  try
  {
   vWordApp=CreateOleObject("Word.Application");
   fStart=true;
  }
  catch(...)
  {
   MessageBox(0, "Ошибка при открытии сервера Word",
                 "Ошибка", MB_OK);
  return;
  }
 }
 vWordApp.OlePropertySet("Visible",true);
 vWordDocs=vWordApp.OlePropertyGet("Documents");
 vWordDocs.OleProcedure("Add");
 vWordDocs=vWordDocs.OleFunction("Item",1);
 vWordDocs.OleProcedure("Activate");
 vDocParagraphs=vWordDocs.OlePropertyGet("Paragraphs");
//
 AnsiString str="ПРИВЕТ";
 vDocParagraphs.OleProcedure("Add");
 vParagraph=vDocParagraphs.OleFunction("Item",1);
 vParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vParagraph.OlePropertySet("Alignment",1);
//
 str="Я умею работать в Word";
 vDocParagraphs.OleProcedure("Add");
 vParagraph=vDocParagraphs.OleFunction("Item",2);
 vParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
 vParagraph.OlePropertySet("Alignment",0); //по левому краю
//
  AnsiString vAsCurDir=GetCurrentDir();
 AnsiString vAsCurDir1=vAsCurDir+"\\hello.doc";
 vWordDocs.OleProcedure("SaveAs",vAsCurDir1.c_str());
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if (fStart)
 {
  try
  {
   vWordApp.OlePropertySet("DisplayAlerts",false);
   vWordApp.OleProcedure("Quit");
  }
  catch(...)
  {
  MessageBox(0, "Ошибка при открытии сервера Word",
                 "Ошибка", MB_OK);
  }

 }
}

--------------------

Имеющий язык - да не убоится спросить!

NightXXX

Дата 31.5.2007, 19:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 18.11.2006
Где: Россия

Репутация: нет
Всего: нет

Спаисбо, все опробуем!))

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »