VPF::Из Delphi в Word - Форум программистов

Dobromen

Дата 9.6.2016, 00:12 (ссылка)

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

Загрузка ...

Новичок

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

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

Как правильно прописать имя файла, чтобы при нажатии на кнопку открывался документ Word.

Код


unit Unit8;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm8 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}
  uses
  ComObj;
procedure TForm8.Button1Click(Sender: TObject);
var
  wdApp, wdDocs, wdDoc : Variant;
  S : String;
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath( Application.exeName);
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    ShowMessage(
      'Файл с именем:'#10
      + Od.FileName + #10
      + 'Не найден. Действие отменено.'
    );
    Exit;
  end;
  try
    wdApp := CreateOleObject('Word.Application');
  except
    ShowMessage('Не удалось запустить MS Word. Действие отменено.');
    Exit;
  end;

  try
    //Делаем видимым окно MS Word.
    wdApp.Visible := True;
    //Ссылка на коллекцию документов.
    wdDocs := wdApp.Documents;
    //Попытка открыть выбранный файл.
    wdDoc := wdDocs.Open(FileName:=Od.FileName);
    //Создание нового документа. Если параметр Template:='...' не задан,
    //то новый документ создаётся по шаблону Normal.Dot.
    //wdDoc := wdDocs.Add;
    //Добавляем пустую строку в конец документа.
    wdDoc.Range.InsertAfter(#10);
    //Добавляем текст в конец документа.
    S := Memo1.Text;
    wdDoc.Range.InsertAfter(S);
       //Сохранение документа.
    //wdDoc.Save;
    //Закрываем MS Word.
    //wdApp.Quit;
  finally
    wdApp := Unassigned;
    wdDocs := Unassigned;
    wdDoc := Unassigned;
  end;
end;
end.

Poseidon

Дата 9.6.2016, 16:29 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Код


Uses ShellApi;
procedure TForm8.Button1Click(Sender: TObject);
begin
  OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
  if OpenDialog1.Execute then
    ShellExecute(Handle, nil, PAnsiChar(OpenDialog1.FileName), nil, nil, SW_SHOWNORMAL);
end;

Если расширение файла не связано с Word, то в 4 параметр ShellExecute надо передавать путь к WinWord.

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Dobromen

Дата 9.6.2016, 21:18 (ссылка)

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

Загрузка ...

Новичок

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

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

Теперь документ открывается, но осталась одна проблема:
Открывается окно с расположением файла и требуется нажатие кнопки "Открыть". Как сделать так, чтобы автоматически пропускать эту процедуру? Чтобы после нажатия Button1 Сразу открылся Word?

Код


unit Unit8;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
  TForm8 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form8: TForm8;
implementation
{$R *.dfm}
  uses
  ComObj;
procedure TForm8.Button1Click(Sender: TObject);
var
  wdApp, wdDocs, wdDoc : Variant;
  S : String;
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath('C:\Users\1\Desktop\WWW.docx');
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    ShowMessage(
      'Файл с именем:'#10
      + Od.FileName + #10
      + 'Не найден. Действие отменено.'
    );
    Exit;
  end;
  try
    wdApp := CreateOleObject('Word.Application');
  except
    ShowMessage('Не удалось запустить MS Word. Действие отменено.');
    Exit;
  end;
  try
    //Делаем видимым окно MS Word.
    wdApp.Visible := True;
    //Ссылка на коллекцию документов.
    wdDocs := wdApp.Documents;
    //Попытка открыть выбранный файл.
    wdDoc := wdDocs.Open(FileName:=Od.FileName);
    //Создание нового документа. Если параметр Template:='...' не задан,
    //то новый документ создаётся по шаблону Normal.Dot.
    //wdDoc := wdDocs.Add;
    //Добавляем пустую строку в конец документа.
    wdDoc.Range.InsertAfter(#10);
    //Добавляем текст в конец документа.
    S := Memo1.Text;
    wdDoc.Range.InsertAfter(S);
       //Сохранение документа.
    //wdDoc.Save;
    //Закрываем MS Word.
    //wdApp.Quit;
  finally
    wdApp := Unassigned;
    wdDocs := Unassigned;
    wdDoc := Unassigned;
  end;
end;
end.

Dobromen

Дата 9.6.2016, 21:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Большое спасибо. Все работает как я и хотел))) очень благодарен

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