標題: [轉貼] VBA-取代日期格式 [打印本頁]

---

作者: 偉婕    時間: 2010-5-8 00:54     標題: 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://forum.twbts.com/)