VBScript フォルダにあるファイルをまとめて印刷するには

オートメーションを使って外部から OpenOffice.org を操作する
返信する
VBA研究員
記事: 4
登録日時: 2月 21, 2019, 8:48 pm

VBScript フォルダにあるファイルをまとめて印刷するには

投稿記事 by VBA研究員 »

oooBASICで利用している関数
MsgBox ConvertToUrl("C:\doc\test.sxw") ' supplies file:///C:/doc/test.sxw
MsgBox ConvertFromUrl("file:///C:/doc/test.sxw") ' supplies (under Windows) c:\doc\test.sxw
が、VBScriptからのリモート環境から利用するにはどうしたらいいのでしょうか。

VBSのファイルアイコンに、「ファイルのアイコンをドラッグドロップ」すると、
Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
WScript.Echo objArgs(I)
Next
のように、ファイルパスを取得します。このobjArgs(I)を、ConvertToUrl関数で変換して、objDesktop.loadComponentFromURLによって開き、
印刷のパラメータを与えることで印刷は可能なのですが、VBSのスクリプト環境でConvertToUrl関数が使えていません。
Set objSM = CreateObject("com.sun.star.ServiceManager")
Set objDesktop = objSM.CreateInstance("com.sun.star.frame.Desktop")
につづけて、どんなコードになるか、ヒントください。
OpenOffice 4.1.2 on Windows 7
VBA研究員
記事: 4
登録日時: 2月 21, 2019, 8:48 pm

Re: VBScript フォルダにあるファイルをまとめて印刷するには

投稿記事 by VBA研究員 »

PDFに出力するコードに、「VBSによる自作関数function ConvertToUrl(ByVal sFileName)が、紹介されていますが、
oooBasicでは漢字もurl変換しているのに対し、漢字の変換はしていないにも関わらず、ファイルを取り扱っています。
これは、oooが背後で自動処理しているからエラーにならずに処理できています。

oooBasicそのものをVBScriptで制御しoooの良さを使いこなすために、oooBasic関数ConverttourlとConvertfromurlのVBSによる実行方法を
教えてくださいませ。
OpenOffice 4.1.2 on Windows 7
返信する

“オートメーション (COM) Windows専用”に戻る