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")
につづけて、どんなコードになるか、ヒントください。
VBScript フォルダにあるファイルをまとめて印刷するには
VBScript フォルダにあるファイルをまとめて印刷するには
OpenOffice 4.1.2 on Windows 7
Re: VBScript フォルダにあるファイルをまとめて印刷するには
PDFに出力するコードに、「VBSによる自作関数function ConvertToUrl(ByVal sFileName)が、紹介されていますが、
oooBasicでは漢字もurl変換しているのに対し、漢字の変換はしていないにも関わらず、ファイルを取り扱っています。
これは、oooが背後で自動処理しているからエラーにならずに処理できています。
oooBasicそのものをVBScriptで制御しoooの良さを使いこなすために、oooBasic関数ConverttourlとConvertfromurlのVBSによる実行方法を
教えてくださいませ。
oooBasicでは漢字もurl変換しているのに対し、漢字の変換はしていないにも関わらず、ファイルを取り扱っています。
これは、oooが背後で自動処理しているからエラーにならずに処理できています。
oooBasicそのものをVBScriptで制御しoooの良さを使いこなすために、oooBasic関数ConverttourlとConvertfromurlのVBSによる実行方法を
教えてくださいませ。
OpenOffice 4.1.2 on Windows 7