VPF::OLE, Word Проблема с SaveAs - Форум программистов

Енот47

Дата 29.3.2009, 12:19 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть CGI скрипт, который открывает Word файл, а затем сохраняет его где-нибудь.
Код выглядит так:

Код


use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Word';

#Word
$Word = Win32::OLE->GetActiveObject('Word.Application') ||
       Win32::OLE->new('Word.Application');
$Word->{'Visible'}     = 1;
$Word->{DisplayAlerts} = 1;

# Open File
my $File = $Word->Documents->Open("C:\\templ.dot");

$Word->ActiveDocument->SaveAs('C:\\doc.doc');

sleep 5;
# Quit/Close
$File->Close(); 
$Word->Quit();

При выполнении, возникает ошибка:
Can't call method "SaveAs" on an undefined value at C:\shttps\www\cgi-bin\ddt.pl line 15.
Я в перле гость, и сломал голову, не знаю в чем причина smile

Тот же скрипт из командной строки работает на ура.
Помогите, кто чем может: ссылкой, словом добрым))
З.Ы. HTTP сервер Small HTTP.

klem4

Дата 29.3.2009, 16:24 (ссылка)

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

Загрузка ...

Шустрый

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

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

какие права стоят на C:\\templ.dot ? поставьте or die $! для конструктора и метода open видимо кто-то из них не отрабатывает.

Енот47

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

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

Загрузка ...

Новичок

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

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

Да, действительно, не работает Open. Прав должно хватать.
Причем такие проблемы только с Word-ом.
Аналогичный пример для Excel работает прекрасно, и сохраняет как надо.

Пробовал просто создавать новый файл:
my $File = $Word->Documents->Add || die $!;
- тот же эффект.

klem4

Дата 29.3.2009, 19:25 (ссылка)

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

Загрузка ...

Шустрый

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

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

А что говорит die ? Да и есть наверняка специальная переменная для этого объекта, содержащая текст последней ошибки.

Енот47

Дата 30.3.2009, 02:38 (ссылка)

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

Загрузка ...

Новичок

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

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

Ага, есть такое.
Вообщем код стал таким:

Код


use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Word';

#Word
$Word = Win32::OLE->GetActiveObject('Word.Application') ||
       Win32::OLE->new('Word.Application') || die $!;
$Word->{'Visible'}     = 1;
$Word->{DisplayAlerts} = 1;

# Open File
my $File = $Word->Documents->Add || OLEError("Ошибка");
$Word->ActiveDocument->SaveAs('C:\\doc.docx');

sleep 5;
# Quit/Close
$File->Close(); 
$Word->Quit(); 

  sub OLEError {
  my $msg  = shift;
  my $oleerror;

  $oleerror = "" . Win32::OLE->LastError();
  $msg = "$msg: $oleerror";
  print "$msg\n";
  }

На выходе читаем такую строчку:
Can't call method "SaveAs" on an undefined value at C:\shttps\www\cgi-bin\ddt.pl line 14. Ошибка: OLE exception from "Microsoft Word": Ошибка в Word. Win32::OLE(0.1709) error 0x800a13e9 in METHOD/PROPERTYGET "Add"

Это сообщение отредактировал(а) Енот47 - 30.3.2009, 02:40

shamber

Дата 30.3.2009, 10:13 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

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

У меня Ваш код отработал отлично. WinXP

Енот47

Дата 30.3.2009, 11:02 (ссылка)

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

Загрузка ...

Новичок

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

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

Сегодня в институте попробовал запускать код. Все нормально.
Похоже проблемы с Вордом, а раз так, то к программированию это отношения не имеет.
Тема закрыта, спасибо всем за участие smile

Mr.Floppy

Дата 8.12.2011, 15:23 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 106
Регистрация: 3.7.2006
Где: Москва

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

Та же проблема была, только с Питоном. Самое интересное, давно написанный код на Delphi прекрасно работал.
Решение (Word 2010): Параметры - Центр управления безопасностью - Параметры макросов - Доверять доступ к объектной модели VBA
Только хотелось бы узнать, как программно менять эту политику, например при установке приложения?

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