返回列表下一主題上一主題發帖

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

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 376
主題: 84
精華: 0
積分: 419
點名: 0
作業系統: Win 8
軟體版本: Office 2007
閱讀權限: 100
性別: 女
註冊時間: 2010-4-30
最後登錄: 2022-6-2

論壇貢獻勳章美女勳章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-5-8 00:54 | 只看該作者

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

日期格式, 巨集

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

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

問題：在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版，只能想到這個方法...
如果你知道新版有相關的功能，或有其他不錯的點子，歡迎分享給大家哦

樓主熱帖

偉婕電子書,歡迎免費下載參考
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

靜思自在 : 自己害自己，莫過於亂發脾氣。

返回列表下一主題上一主題