[OOo] DOC轉成ODT格式的Script
 2006/06/08 |  分類: OpenOffice.org試用手記
 | 點擊數: 4 / 3846
以下是在Windows底下把Word的DOC格式轉換成OpenOffice Writer的ODT格式,這樣可以方便的執行已存在檔案的格式轉換。
| doc2odt1.vbs |
‘***********************************************************
‘$Id: doc2odt1.vbs 908 2006-06-08 09:01:48Z jerry $
‘
‘將DOC檔轉換成ODT檔; 必須傳入完整路徑的檔名
‘***********************************************************
dim oArgs, oDoc
dim xExt, sURL, sSourceFile, sOutputFile
set oArgs = WScript.Arguments
if oArgs.Count > 0 then
sSourceFile = oArgs(0)
end if
‘The service manager is always the starting point
‘If there is no office running then an office is started up
Set objServiceManager= WScript.CreateObject("com.sun.star.ServiceManager")
‘Create the CoreReflection service that is later used to create structs
‘Set objCoreReflection= objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
‘Create the Desktop
Set objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop")
sExt = right(sSourceFile,4)
if (sExt = ".doc") then
if InStr(sSourceFile, "") <= 0 then
Wscript.echo "參數必須包含路徑"
else
sOutputFile = left(sSourceFile,len(sSourceFile)-4) & ".odt"
sURL = ConvertToUrl(sSourceFile)
‘Wscript.echo cFile & "==>" & sURL
Set oDoc = objDesktop.loadComponentFromUrl(sURL,"_blank", 0, Array())
sURL = convertToURL(sOutputFile)
oDoc.storeAsURL sURL, Array()
oDoc.close( True )
end if
end if
WScript.Quit
Function ConvertToUrl(strFile)
strFile = Replace(strFile, "", "/")
strFile = Replace(strFile, ":", "|")
strFile = Replace(strFile, " ", "%20″)
strFile = "file:///" + strFile
ConvertToUrl = strFile
End Function |
##
您可能也會有興趣的類似文章
- [轉貼] Office外的另一選擇:StarOffice 8測試版 (0則留言, 2005/04/01)
- [OOo] OpenOffice.org轉檔的方法 (3則留言, 2006/07/18)
- [OOo] 表格製作的快速鍵巨集 (0則留言, 2006/06/08)
- [OOo] 輸入數值產生Unicode字元的巨集 (0則留言, 2006/05/07)
- 免費的PDF製作工具: OpenOffice.org (3則留言, 2005/07/28)
- [OOo] 建立不同語言版本的OpenOffice.org Writer捷徑 (0則留言, 2005/08/05)
- [OOo] 跳頁的巨集–更新 (0則留言, 2006/05/08)
- 再次試用 OpenOffice.org (0則留言, 2005/02/06)
- [OOo] 自動圖文集與自動校正 (0則留言, 2005/07/30)
- [OOo] Writer的狀態列說明 (0則留言, 2005/07/31)
- [OOo] 以左鈕雙擊快速開啟功能視窗 (0則留言, 2005/08/02)
- [OOo] 移動游標位置的各種的方法 (0則留言, 2005/08/05)
- [OOo] 幾個Writer翻譯上的小問題 (1則留言, 2005/08/05)
- [OOo] OpenOffice.org Writer快速尋找元件的方法 (0則留言, 2005/08/09)
- [OOo] 增加插入按鈕到標準工具列 (0則留言, 2005/08/14)
隨機文章- 由Subversion檔案庫匯出特定專案的內容
- WordPress跑馬燈外掛:Running Line
- 將Miranda IM升級至0.5版
- IE7突然出現「存放裝置空間不足,無法完成此操作」錯誤
- [Vista] 路徑分隔字元也能使用正斜線…「部份」成功… (1)
- [轉貼PC Office] Skype外掛「SAM」替您錄製離線電話答錄鈴! (1)
- iPad免費桌布何處尋? (3)
- 修改WordPress 2.8最新迴響的顯示格式
- 終於比較清楚Aqua Data Studio的Execute Current要如何操作了
- 我的Subversion與Trac使用經驗 (4)
歷史熱門文章
- 如何手動輸入Plurk的表情圖示? (353,054 點擊/2008-09-29)
- 簡單放大Plurk輸入區的方法[修訂] (86,924 點擊/2008-09-29)
- 啟用&關閉中華電信ZyXEL P874的無線網路連線功能的步驟[修訂] (83,952 點擊/2011-06-01)
- Plurk CSS樣式自訂修改全攻略 (83,108 點擊/2009-07-04)
- 網路升級光世代50M/3M與設定ZyXEL P874 (53,279 點擊/2011-05-28)
- 輕鬆學會彈指神功-揭露AutoHotkey絕技 (43,156 點擊/2008-04-10)
- iPad新手入門技巧 (40,410 點擊/2011-02-05)
- 分享世博台灣館主題曲『台灣的心跳聲』MV(附歌詞+下載連結+新歌詞) (38,149 點擊/2010-04-27)
- 把HTC Touch HD操作介面換成Spb Mobile Shell,美觀又便利! (37,954 點擊/2009-02-18)
- 另一套適用手機的影片轉檔工具:WinAVI 3GP/MP4/PSP/iPod Video Converter (35,920 點擊/2009-04-18)
|
熱門文章排行
- 如何手動輸入Plurk的表情圖示? (353,054 views/2008-09-29)
- 簡單放大Plurk輸入區的方法[修訂] (86,924 views/2008-09-29)
- 啟用&關閉中華電信ZyXEL P874的無線網路連線功能的步驟[修訂] (83,952 views/2011-06-01)
- Plurk CSS樣式自訂修改全攻略 (83,108 views/2009-07-04)
- 網路升級光世代50M/3M與設定ZyXEL P874 (53,279 views/2011-05-28)
- 輕鬆學會彈指神功-揭露AutoHotkey絕技 (43,156 views/2008-04-10)
- iPad新手入門技巧 (40,410 views/2011-02-05)
- 分享世博台灣館主題曲『台灣的心跳聲』MV(附歌詞+下載連結+新歌詞) (38,149 views/2010-04-27)
- 把HTC Touch HD操作介面換成Spb Mobile Shell,美觀又便利! (37,954 views/2009-02-18)
- 另一套適用手機的影片轉檔工具:WinAVI 3GP/MP4/PSP/iPod Video Converter (35,920 views/2009-04-18)
|
最新留言