返回列表 上一主題 發帖

[轉貼] VBA-取代日期格式

[轉貼] VBA-取代日期格式

本帖最後由 偉婕 於 2010-6-30 23:10 編輯

原發表者:leonchou (2005-03-05)

問題:在word如何將中文日期轉成阿拉伯數字的日期格式?
如: 一九九四年七月一對夫婦
變: 1994年7月一對夫婦

面對這問題可能很直覺就想到 [搜尋/取代] 的方式。
但如果是少數幾個日期,還可一個一個取代,否則從○~九分別取代為0~9要操作十次,而且還可能取代到別的東西 (例如"一對夫婦"的一)。
雖然Word搜尋功能支援wildcard,但取代功能無法滿足此問題的需求(據我所知,2000版),於是巨集就派上用場了。

試用以下的巨集,應可以省不少力氣:

程式碼:
  1. Sub test()
  2. Selection.HomeKey Unit:=wdStory
  3. x = "[一二][九○][七八九○][一二三四五六七八九○]年*[一二三四五六七八九十]月"
  4. Do
  5.   Selection.Find.Execute x, MatchWildcards:=True
  6.   If Selection.Type = wdSelectionIP Then Exit Do
  7.   Selection.Text = Format(Selection.Text, "yyyy年m月")
  8.   Selection.Collapse Direction:=wdCollapseEnd
  9. Loop
  10. End Sub
複製代碼
說明:
這是萬用字元(wildcard)的應用 ,以日期的特性來決定wildcard代碼怎麼寫:
[一二][九○][七八九○][一二三四五六七八九○]年*[一二三四五六七八九十]月
如果你不熟萬用字元,可先把每個 [ ] 看作一個字,[ ] 裡面每個字符合文章內的就算成立。
這個代碼可以搜尋到 1970~2099 所有年月的內容,若不足還可調整。

巨集先將游標移到文件開頭 (HomeKey Unit:=wdStory),接著跑 Do... Loop 迴圈,逐一搜尋(Find.Execute)符合上述wildcard條件的內容,
如果找到:
選取範圍(selection)會選取找到的內容(該年月反白),程式會透過Format函數將它取代為阿拉伯數字的日期格式,然後改變選取區(Collapse)到該年月之後,準備下一次搜尋。
如果找不到:
選取範圍不會改變,也就是無任何區域反白 (Selection.Type = wdSelectionIP),此時就跳出迴圈 (Exit Do) 並結束程式。

我用的是2000版,只能想到這個方法...
如果你知道新版有相關的功能,或有其他不錯的點子,歡迎分享給大家哦
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

        靜思自在 : 口說一句好話,如口出蓮花;口說一句壞話如口吐毒蛇。
返回列表 上一主題