WordApplicationのエラー

解決

Yukibow 2018-09-20 00:02:21 No: 49501

MS WORD に書き出そうと、WordApplication, WordDucumentを置き、Mr.XRAYさんのサイトのコードを流用させていただき、実行したところ下記のエラーが出ます。
申し訳ございません。ファイルが見つかりませんでした。ファイルを移動、名前変更、または削除しましたか?

Word2000 => WordXP なので、Openのパラメーターは増やしています。

OS Window10 pro 64bit
Delphi 10.2
よろしくお願いいたします。

igy 2018-09-20 00:20:39 No: 49502

実際に書いたコードを、ここに挙げてみるのは、いかがですか？

Yukibow 2018-09-20 00:38:21 No: 49503

コードは下記です。よろしくお願いいたします。

procedure TForm1.Button1Click(Sender: TObject);
var
  FilePath : OleVariant;
begin
  FilePath := ExtractFilePath(Application.ExeName) + 'テスト文書.docx';
  WordApplication1.Connect;
  WordApplication1.Visible := True;

  WordApplication1.Documents.Open(FilePath,
                                  EmptyParam,
                                  EmptyParam,
                                  EmptyParam,
                                  EmptyParam,
                                  EmptyParam,
                                  EmptyParam,
                                  EmptyParam,
                                  EmptyParam,
                                  EmptyParam,
                                  EmptyParam,
                                  EmptyParam,
                                  EmptyParam,
                                  EmptyParam,
                                  EmptyParam);

WordDocument1.ConnectTo(WordApplication1.ActiveDocument as WordDocument);
end;

igy 2018-09-20 00:44:37 No: 49504

ちなみに、実行プログラムがあるフォルダに、ファイルテスト文書.docx は、ありますか？

Yukibow 2018-09-20 00:53:08 No: 49505

あっ、そういうことなんですね。恥ずかしながら気づきませんでした。
たしかに、ファイルを置くとエラーがなくなりました。
エラーの内容通りですね。
解決しました。

igyさん、ありがとうございました。助かりました。