問題：在word如何將中文日期轉成阿拉伯數字的日期格式?
如: 一九九四年七月一對夫婦
變: 1994年7月一對夫婦
面對這問題可能很直覺就想到 [搜尋/取代] 的方式。
但如果是少數幾個日期，還可一個一個取代，
否則從○~九分別取代為0~9要操作十次，
而且還可能取代到別的東西 (例如"一對夫婦"的一)。
雖然Word搜尋功能支援wildcard，但取代功能無法滿足
此問題的需求(據我所知,2000版)，於是巨集就派上用場了。
試用以下的巨集，應可以省不少力氣：
Sub test()
Selection.HomeKey Unit:=wdStory
x = "[一二][九○][七八九○][一二三四五六七八九○]年*[一二三四五六七八九十]月"
Do
Selection.Find.Execute x, MatchWildcards:=True
If Selection.Type = wdSelectionIP Then Exit Do
Selection.Text = Format(Selection.Text, "yyyy年m月")
Selection.Collapse Direction:=wdCollapseEnd
Loop
End Sub
說明：
這是萬用字元(wildcard)的應用 ，
以日期的特性來決定wildcard代碼怎麼寫：
[一二][九○][七八九○][一二三四五六七八九○]年*[一二三四五六七八九十]月如果你不熟萬用字元，可先把每個 [ ] 看作一個字，
[ ] 裡面每個字符合文章內的就算成立。
這個代碼可以搜尋到 1970~2099 所有年月的內容，若不足還可調整。
巨集先將游標移到文件開頭 (HomeKey Unit:=wdStory)，
接著跑 Do... Loop 迴圈，逐一搜尋(Find.Execute)符合上述wildcard條件的內容，
如果找到：選取範圍(selection)會選取找到的內容(該年月反白)，
程式會透過Format函數將它取代為阿拉伯數字的日期格式，
然後改變選取區(Collapse)到該年月之後，準備下一次搜尋。
如果找不到：選取範圍不會改變，也就是無任何區域反白 (Selection.Type = wdSelectionIP)，
此時就跳出迴圈 (Exit Do) 並結束程式。
我用的是2000版，只能想到這個方法...
如果你知道新版有相關的功能，或有其他不錯的點子，
歡迎分享給大家哦
作者
已記錄
