WordApplicationのエラー

解決

Yukibow 2018-09-19 15:02:21 No: 49501 IP: 192.*.*.*

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

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

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

編集削除

igy 2018-09-19 15:20:39 No: 49502 IP: 192.*.*.*

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

編集削除

Yukibow 2018-09-19 15:38:21 No: 49503 IP: 192.*.*.*

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

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-19 15:44:37 No: 49504 IP: 192.*.*.*

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

編集削除

Yukibow 2018-09-19 15:53:08 No: 49505 IP: 192.*.*.*

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

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

編集削除