0

Word 文書の更新に使用される、機能している PERL スクリプトがあります。Perl スクリプトは、MS Office 2003 または 2007 で動作するようにコーディングされています。BF 経由で更新しようとしているマシンには Office 2003 があり、適切なテンプレートがインストールされ、マクロ セキュリティ設定が更新されています。

コマンドラインでBFに使用させたい正確なコマンドを実行すると、期待どおりに機能します。BF ステップで実行すると、「*** Unable to open doc at \servername\projectname\bin\updateVer.pl line 94」が表示されます (行番号は Perl スクリプトの croak です)。

スクリプトは、鳴き声まで次のようになります。

# enable Sanity checking and make the variable names meaningful
use strict;
use warnings;
use English;
use Win32::OLE;

# Gain access to MS Word 'wd' constants
use Win32::OLE::Const ('Microsoft Word');

use FindBin qw($RealDir);

use lib ($RealDir, "$RealDir/..", "$RealDir/../lib");

# include the common and log utilities
use SCCM::Common;
use SCCM::Logs;

# use command line inputs
use Getopt::Long qw(:config auto_abbrev permute ignore_case pass_through);

# set up logs and process logfile options
logOptions(qw(-log now));

my  $bookmark_update_result = "";
my  $update_ref_result = "";

# Get input from user

my  $path;
my  $bookmarkName;
my  $bookmarkValue;
my  $Word;
my  $newWord = 0;

GetOptions("path=s"           => \$path,
       "bookmarkName=s"   => \$bookmarkName,
   "bookmarkValue=s"  => \$bookmarkValue);

unless ( defined($path) ) 
   { croakf "%[Fail] Path and filename of SVD are required\n"; }

unless ( defined($bookmarkName) && defined($bookmarkValue) ) 
   { croakf "%[Fail] bookmarkName and bookmarkValue parameters are both required.\n"; }

# Start Word in a safer way, checking to see if user has it open first.

eval
{
  $Word = Win32::OLE->GetActiveObject('Word.Application');
  if (! $Word)
  {
    $newWord = 1;
    $Word = Win32::OLE->new('Word.Application', 'Quit');
  }
};

croakf "%[Fail] -- unable to start Word Engine: $@\n", Win32::OLE->LastError() if ($@ || ! $Word);

my $dispAlerts = $Word->{'DisplayAlerts'};
$Word->{'DisplayAlerts'} = wdAlertsNone;

if ($newWord)
{
  $Word->{'Visible'} = 0;
}

my $doc = $Word->Documents->Open($path) or
   croakf ("%[Fail] Unable to open doc ", Win32::OLE->LastError() );

スクリプトは次のように呼び出されます: ccperl \servername\projectname\bin\updateVer.pl -path "C:\BuildForgeBuilds\BFProjectName\BFProjectName_0177\MyDocument.doc" -bookmarkName REV_Baseline -bookmarkValue My_Baseline_10.20.30

仕事用のドキュメントを開いてよいと BF に納得させるための指示を得ることができますか? ありがとうございました！

4

1 に答える 1