Из Delphi в Word

[Alex201]

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

PHP код:

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. 


[min@y™]

Порылся в гугле нашел вот такой код.

пора уже гуглу научиться делать редирект при поиске "вот-такого-кода"!

[Alex201]

Код поправил. Программа работает, но файла не видит. пишет "Файл не найден". Все же как правильно задать имя файла?

[Serge_Bliznykov]

Код поправил.

покажите исправленный код.

но файла не видит. пишет "Файл не найден".

кто пишет - программа или Word?
если программа, тогда она должна писать:
'Файл с именем: xxxxxxx Не найден. Действие отменено.'
А она что пишет?
если не так, тогда покажите скриншот с ошибкой.

[Alex201]

На одном из форумов советовали в строке
wdDoc := wdDocs.Open(FileName:=Od.FileName) заменить FileName:=Od.FileName на Полное имя файла. Файл назван WWW.docx. Сохранил его в папку с проектом.
При замене wdDoc := wdDocs.Open('WWW.docx') программа открывает корневую папку, где храниться проект и предлагает вручную открыть документ. Открываю WWW.docx и выводится сообщение об ошибке "Файл не найден" скрин прилагаю.
Отсюда возникают два вопроса:
1. Как изменить программный код, чтобы сразу напрямую открывался вордовский файл.
2. Как правильно прописать полное имя файла?

[Serge_Bliznykov]

у Вас что, файл реально лежит в папке C:\Windows\System32\ ??!
тогда два вопроса:
- как Вы умудрились его туда засунуть?!!!!
- программу запускаете от имени Администратора?

[Alex201]

Нет. Файл лежит в корневой папке данного проекта. Почему он ссылается на системную папку я не готов ответить.. весь код прописан в начале темы, внесено только одно изменение wdDoc := wdDocs.Open('WWW.docx')

[Serge_Bliznykov]

внесено только одно изменение wdDoc := wdDocs.Open('WWW.docx')

попробуйте вместо этого написать так:

wdDoc := wdDocs.Open( ExtractFilePath(Application.ExeName) + 'WWW.docx')

[xxbesoxx]

{$R *.dfm}
 uses  ShellAPI;
 
 procedure TForm1.Button2Click(Sender: TObject);
 var
   wdDoc : OleVariant;
begin
   wdDoc  :=  ShellExecute(Handle, 'open','C:\путь файлов\Имя_документов.docx',  nil, nil, SW_SHOWNORMAL);
end;

end.

[Alex201]

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

PHP код:

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.