軟體 - WPS文件轉換成WORD格式

[psac]

WPS文件轉換成WORD格式


我們當然不會在Ｗｏｒｄ 中重新輸入已在ＷＰＳ 系統中錄入的文件資料。因此，將ＷＰＳ 文件格式轉換為Ｗｏｒｄ格式，是低版本的ＷＰＳ（ＷＰＳ９７的文件轉換功能要強得多）與Ｗｏｒｄ 共享資源的必然要求。
採用手工轉換方法，不僅要將每個需要轉換的ＷＰＳ文件轉換為文本文件，而且需要在Ｗｏｒｄ 中完成各種繁瑣的查找、替換操作。
當設定的左邊界不為１、或者段落中有連續的兩個空格（確實需要）、或者存在因ＷＰＳ 排版形成的軟空格時，這種方法就會產生錯誤的結果，必須進行修正。
上述方法顯然比較費時費力，且不太可靠，有沒有更好的解決辦法呢？其實，利用可視化編程工具Ｄｅｌｐｈｉ ３強大的低級文件處理功能，編寫一個小程式，就能很輕鬆將ＷＰＳ 文件轉換為Ｗｏｒｄ 能夠正確讀寫的文本文件格式。
編程思路
分析一下ＷＰＳ 文件格式和Ｗｏｒｄ 能夠正確讀寫的文本文件格式，就會明白，ＷＰＳ 文件不僅有１ＫＢ的文件頭，而且還包含有字體、字號、軟硬Enter鍵符、分頁符、軟空格（因自動排版產生）等控制符，在所有這些符號中，Ｗｏｒｄ 僅能正確讀取硬Enter鍵，其他符號都將變為亂碼。
為了避免出現上述問題，我們在編製程式時，可以採用以下設計思路：讀入ＷＰＳ 文件，跳過文件的１ＫＢ文件頭，忽略除硬Enter鍵外的各類控制符，將其餘的字節寫入新文件。
具體方法
在Ｄｅｌｐｈｉ ３中新增一個窗體，在窗體中加入兩個編輯框和一個Ｃａｐｔｉｏｎ為「轉換」的位圖按鈕，其中編輯框Ｅｄｉｔ１用於輸入源文件名，另一個編輯框Ｅｄｉｔ２用於輸入轉換的結果文件名，在「轉換」按鈕的Ｏｎｃｌｉｃｋ 事件中輸入以下代碼：
ｐｒｏｃｅｄｕｒｅ ＴＭａｉｎＢｏｘ．ＢｉｔＢｔｎ１Ｃｌｉｃｋ（Ｓｅｎｄｅｒ ：ＴＯｂｊｅｃｔ）；
ｖａｒ ｓｏｕｒｃｅ ，ｔａｒｇｅｔ ：ｉｎｔｅｇｅｒ ；
ｆｉｌｅｓｉｚｅｓ ：ｌｏｎｇｉｎｔ ；
ｉ ：ｉｎｔｅｇｅｒ ；
ｘ，ｘ１，ｘ２：ｂｙｔｅ ；
ｓｓ ：ｓｔｒｉｎｇ ；
ｂｅｇｉｎ ｓｏｕｒｃｅ ：＝ｆｉｌｅＯｐｅｎ（Ｅｄｉｔ１．Ｔｅｘｔ ，０）；
ｉｆ ｓｏｕｒｃｅ ＝－１ｔｈｅｎ ｂｅｇｉｎ
ＭｅｓｓａｇｅＤｌｇ（′打開源文件出錯，請核對！′，ｍｔ Ｗａｒｎ—
ｉｎｇ ，〔ｍｂＯｋ〕，０）；
Ｅｘｉｔ ；
ｅｎｄ ；
ｆｉｌｅｒｅａｄ（ｓｏｕｒｃｅ ，ｘ１，１）；｛判斷ＷＰＳ 版本號｝
ｆｉｌｅｒｅａｄ（ｓｏｕｒｃｅ ，ｘ２，１）；
ｉｆ （（ｘ１＜＞＄１）ａｎｄ （ｘ１＜＞＄２））ｏｒ （ｘ２＜＞＄ｆｆ）
ｔｈｅｎ ｂｅｇｉｎ
ＭｅｓｓａｇｅＤｌｇ（′不是ＷＰＳ 文件，請核對！′，ｍｔ Ｗａｒｎ—
ｉｎｇ ，〔ｍｂＯｋ〕，０）；
ｆｉｌｅｃｌｏｓｅ（ｓｏｕｒｃｅ）；Ｅｘｉｔ ；
ｅｎｄ ；
ｉｆ ＦｉｌｅＥｘｉｓｔｓ（Ｅｄｉｔ２．Ｔｅｘｔ）ｔｈｅｎ ｂｅｇｉｎ
ｉ ：＝ＭｅｓｓａｇｅＤｌｇ（′目標文件已存在，是否覆蓋之？′，
ｍｔ Ｗａｒｎｉｎｇ ，ｍｂＯｋＣａｎｃｅｌ ，０）；
ｉｆｉ ＝ｍｒＣａｎｃｅｌ ｔｈｅｎ ｂｅｇｉｎ
ＦｉｌｅＣｌｏｓｅ（ｓｏｕｒｃｅ）；
Ｅｘｉｔ ｅｎｄ ；
ｅｎｄ ；
ｔａｒｇｅｔ ：＝ｆｉｌｅＣｒｅａｔｅ（Ｅｄｉｔ２．Ｔｅｘｔ）；
ｉｆｔａｒｇｅｔ ＝－１ｔｈｅｎ ｂｅｇｉｎ
ＭｅｓｓａｇｅＤｌｇ（′建立目標文件出錯，請核對！′，ｍｔ—
Ｗａｒｎｉｎｇ ，〔ｍｂＯｋ〕，０）；
ＦｉｌｅＣｌｏｓｅ（ｓｏｕｒｃｅ）；
Ｅｘｉｔ ；ｅｎｄ ；ｆｉｌｅｓｉｚｅｓ ：＝ｆｉｌｅｓｅｅｋ（ｓｏｕｒｃｅ ，０，
２）；ｆｉｌｅｓｅｅｋ（ｓｏｕｒｃｅ ，＄４００，０）；
｛跳過１ＫＢ文件頭｝
ｗｈｉｌｅ ｆｉｌｅｓｅｅｋ（ｓｏｕｒｃｅ ，０，１）
＜ｆｉｌｅｓｉｚｅｓ ｄｏ ｂｅｇｉｎ
ｆｉｌｅｒｅａｄ（ｓｏｕｒｃｅ ，ｘ，１）；
ｉｆ （ｘ＝＄０ｃ）ｏｒ （ｘ＝＄８ｄ）ｏｒ
（（ｘ＞＝＄９０）ａｎｄ （ｘ＜＝＄９ｆ））
ｔｈｅｎ ｛屏蔽分頁符、
軟Enter鍵和各類控制符號｝
ｆｉｌｅｒｅａｄ（ｓｏｕｒｃｅ ，ｘ，１）
ｅｌｓｅ ｛屏蔽軟空格｝
ｉｆ ｘ＜＞＄７ｆｔｈｅｎｆｉｌｅｗｒｉｔｅ（ｔａｒｇｅｔ ，ｘ，１）；
ｅｎｄ ；
ｆｉｌｅｃｌｏｓｅ（ｓｏｕｒｃｅ）；
ｆｉｌｅｃｌｏｓｅ（ｔａｒｇｅｔ）；
Ｅｄｉｔ１．Ｔｅｘｔ ：＝′′；
Ｅｄｉｔ２．Ｔｅｘｔ ：＝′已轉換完成′；
ｅｎｄ ；最後，按Ｆ９編譯，即可得到一個可執行文件，用它來進行轉換，一般的文件僅需要幾秒鐘就可完成。
（湖北省枝江市委辦公室曹祖權４４３２００）

[psac]

讓Office Word XP當作你的翻譯詞典

在當今摩登社會裡，英語是很多學生或者相關工作者常常會接觸到的事物，即使我們在平時瀏覽網站時，可能會也時有接觸。而在英語翻譯時遇到一些陌生的單詞時，自然就要求助於一些英語詞典了。

大概正是基於此種考慮，微軟的Word XP特地為大家增加了功能較全面的翻譯功能，這就等於在Word裡增加了一本好字典呀。既可以英譯漢又可以漢譯英，相當不錯。

現在，讓我們看看如果查找某英語單詞的漢語意思。讓我們任意打開一篇英文文檔或者在文檔中輸入英文單詞，選中要查的單詞後，單擊右鍵，從彈出的表菜單裡選擇「翻譯」命令，此時，你會發現在文檔界面的右側多了一個「翻譯」欄，在「詞典」下拉列表裡顯示的詞典就是「英語（美國）到中文（中國）」，這就代表目前使用的詞典是英譯漢詞典。而在「結果」框內顯示的就是對於當前選定單詞的翻譯，看一看，夠詳盡吧。

既然可以英譯漢，同樣也可以漢譯英了，漢譯英的操作步驟與英譯漢基本相同。也是選定要翻譯的字或詞，然後用前面相同的步驟進行翻譯。所不同的是在「詞典」下拉列表裡顯示的詞典就是「中文（中國）到英語（美國）」，當然在「結果」框內顯示的就是對漢語詞彙的英語翻譯嘍。

其實，除了通過在詞語上單擊右鍵，然後執行「翻譯」命令進行翻譯外，還可以直接在「翻譯」欄內的「文字」框內輸入自己要查的單詞，接著按下Enter鍵鍵，就可以在「結果」框內看到翻譯結果了。但是提醒大家一下，如果你要翻譯的是英語單詞，就請選擇詞典為「英語（美國）到中文（中國）」，而如果你要翻譯的是漢語詞彙，就請選擇詞典為「中文（中國）到英語（美國）」，這點一定要記住喲，如果選擇的詞典不對，它就不能給你翻譯了。

另外，你還可以在「結果」中選定某詞或某部分後，再單擊「結果」框右下方的「替換」按鈕就可將選定內容新增到文檔中了。

其實，Word XP裡提供的翻譯功能完全能夠勝任一本基本的英漢漢英詞典了，所以希望大家一定要好好地利用。

另外，值得提醒大家的是，如果你的Word XP最初是按預定安裝的，在執行翻譯操作時則無法進行，但是它會出現交談視窗提示你安裝翻譯功能，這時你只要放入Office XP安裝光碟按提示進行安裝即可。
編者按：這樣大家在Word中寫作時，就可以多查，多看，這樣出問題的可能性也會少出許多。寫出一手漂亮的英文文檔可是很酷的喲！