Открыть документ Word или Excel

@altay-aum · Регистрация: 12.11.2008

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

Как написать код для кнопки, при нажатии которой открывался бы нужный мне WORDовский или EXCELевский документ?

@Monte-Cristo · 18.03.2009, 10:31

открывался в твое программе? или в окне word или ecel?

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

Delphi

uses ShellAPI;
// .... 
var
str: string;
...
str:='d:\xyz.doc';
ShellExecute(0,'open',PChar(str),'','',SW_SHOW);

@altay-aum · 18.03.2009, 17:13 **[ТС]**

Лучше в окне Word или Excel.

Добавлено через 3 часа 18 минут 9 секунд
Don Corleone,

Лучше в окне Word или Excel.

@Monte-Cristo · 18.03.2009, 21:55

altay-aum, ну так выше я ж написал...

вот код

Delphi

uses ShellAPI;
// .... 
var
str: string;
...
str:='d:\xyz.doc';
ShellExecute(0,'open',PChar(str),'','',SW_SHOW);

этой командой открываются любые файлы... но открываются в программах поумолчанию..

@leonw · 19.07.2012, 07:01

а не поумолчанию как сделать?

@Санек25 · 19.07.2012, 08:04

используй опен диалог , а str:=opendialog1.filename;

@leonw · 19.07.2012, 09:44

он теперь стал делить имя отдельно, расширение отдельно и пишет файл не найден.

@leonw · 24.08.2012, 20:20

Delphi

 cmdLine := Edit1.text+'word.exe /Open '; // ?? ??? ?????? ? ?????? ???????
  fName   := 'data\name.doc'; // ?????? avi-??? ????? ????? ???????????
  // WinExec(PChar(cmdLine + fName), SW_SHOW); // ?????? ??? string
    FillChar(si, SizeOf(si), #0);
  with si do begin
    cb := SizeOf(si);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := SW_SHOW;
  end;

нашел! вот так лучше!

@Vedma · 25.08.2012, 02:58

вот интересный вариант:

Delphi

procedure TMainForm.EditInMSWordItemClick(Sender: TObject);
var
Unknown: IUnknown;
Result: HResult;
AppProgID: String;
App: Variant;
Rng: Variant;
begin
try
AppProgID := 'Word.Application';
Result :=
GetActiveObject(ProgIDToClassID(AppProgID),nil,Unknown);
if (Result = MK_E_UNAVAILABLE) then
App := CreateOleObject(AppProgID) else
begin
App := GetActiveOleObject(AppProgID);
end;
App.Visible := True;
App.Documents.Add();
App.Documents.Item(1).Activate;
App.ActiveDocument.Paragraphs.Add;
Rng :=  App.ActiveDocument.Paragraphs.Item(1).Range;
Rng.InsertAfter(TextEdit.Text);
App:=Unassigned;
except
end;
TextEdit.SetFocus;
end;

@altay-aum 0 / 0 / 0 Регистрация: 12.11.2008 Сообщений: 24
		1
	Открыть документ Word или Excel 18.03.2009, 10:21. Показов 6292. Ответов 8 Метки нет (Все метки) Как написать код для кнопки, при нажатии которой открывался бы нужный мне WORDовский или EXCELевский документ? 0

@altay-aum 0 / 0 / 0 Регистрация: 12.11.2008 Сообщений: 24
	18.03.2009, 17:13 [ТС]	3
	Лучше в окне Word или Excel. Добавлено через 3 часа 18 минут 9 секунд Don Corleone, Лучше в окне Word или Excel. 0

@leonw 0 / 0 / 1 Регистрация: 09.03.2007 Сообщений: 24
	19.07.2012, 07:01	5
	а не поумолчанию как сделать? 0

@Санек25 422 / 352 / 19 Регистрация: 14.05.2012 Сообщений: 1,437
	19.07.2012, 08:04	6
	используй опен диалог , а str:=opendialog1.filename; 0

@leonw 0 / 0 / 1 Регистрация: 09.03.2007 Сообщений: 24
	19.07.2012, 09:44	7
	он теперь стал делить имя отдельно, расширение отдельно и пишет файл не найден. 0

	25.08.2012, 02:58