童‧話‧世‧界

以下的小玩意還有一點小暇疵
建議先在新的word玩玩看
或者是把您想轉換的一大串
先擺到新word視窗
因為 會把「民」後面兩個字加上1911

如果您的文章裡面沒有"民"字 那就不用怕囉
想玩的話先用Ctrl+f找找看囉..:)

如果啊
您的論文裡面
有太多的(民80)，(民91)
這款民國年份
請在word視窗
按下Alt + F11(功能鍵F11)
跑出Microsoft Visual Basic視窗
接著單按 F7(功能鍵F7)
跑出程式碼視窗
接著把 包在分隔線內的 程式碼貼上
===========================================================
Sub trans_age()
Selection.HomeKey Unit:=wdStory
x = "民??"
Do
Selection.Find.Execute x, MatchWildcards:=True
If Selection.Type = wdSelectionIP Then Exit Do
year_x = Right(Selection.Text, 2)
Selection.Text = Str(Val(year_x) + 1911)
Selection.Collapse Direction:=wdCollapseEnd
Loop
End Sub
============================================================
最後按下F5(功能鍵F7)
切換到word試窗
看看結果如何...

在網路上找到的code 然後再改一改 就變成那樣了..呵
好玩..

引用自：
Superken(2005)。【求助】在word怎樣轉日期的格式?。
http://www.pczone.com.tw/vbb3/thread/5/107932