WordApplicationのエラー (ID:49503)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

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

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;

←解決時は質問者本人がここをチェックしてください。

戻る