Sub 以未格式化貼上文字()
'
' 以未格式化文字貼上 巨集
' 巨集錄製於 2012/11/28,錄製者 SMC
'
'
'作用
' 以「未格式化文字」及「inline」方式貼上
' 選擇性貼上_未格式化文字
'
'
Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
End Sub
#VBA #MS Word
吾乃天涯一書蟲也。
Sub 以未格式化貼上文字()
'
' 以未格式化文字貼上 巨集
' 巨集錄製於 2012/11/28,錄製者 SMC
'
'
'作用
' 以「未格式化文字」及「inline」方式貼上
' 選擇性貼上_未格式化文字
'
'
Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
End Sub
#VBA #MS Word
Option Explicit '強制變數需要在程式中宣告
Sub 刪除書籤2()
'
' 刪除書籤
' 巨集於 2012/9/27
'
Dim LoopNo As Integer
Dim i As Integer
LoopNo = ActiveDocument.Bookmarks.Count '書籤數目
MsgBox "隱藏書籤不可打開" '提示注意動作。
MsgBox "刪除書籤數量:" & LoopNo
For i = 1 To LoopNo
ActiveDocument.Bookmarks(1).Delete '刪除第1個位置書籤。
'索引編號代表書籤在 [書籤] 對話方塊中依字母順序排列的書籤清單內的位置。刪除列名第一個的書籤,直到所有書籤刪完。
Next
End Sub
問AI 解答--未測 →看起來可行。從第一筆書籤,依次往下刪除,直至無書籤。
以下是一個可以去除Word文件中所有書籤的巨集:
Sub RemoveBookmarks()
Dim bm As Bookmark
For Each bm In ActiveDocument.Bookmarks
bm.Range.Delete
Next bm
End Sub
使用方法:
打開你要去除書籤的Word文件
按下Alt + F11,打開VBA編輯器
點選Insert > Module,新增一個模組
複製上述的巨集程式碼到模組視窗中
按下F5或在編輯器中點選Run Sub/UserForm,執行巨集
執行完畢後,關閉VBA編輯器,你的書籤就被刪除了。
請注意,這個巨集將會刪除文件中所有的書籤,請確認您已經保存好文件,並且不會影響到您的其他內容。
#VBA #MS Word #AI
注:英文為主
鳩摩羅什大師在譯場翻譯佛典,必須先考慮譯經的基本條件:
第一是有無梵本原文!當時要有僧人帶來的梵本佛經,或有能背誦經文的人到來,才有原文開譯。
羅什對很多經文都很熟悉, 《出三藏記集》說羅什能背誦甚多佛典,所以不少經文原本就在羅什心中。
但《高僧傳》也記載了譯場,因缺乏原典而令譯事受阻,如:佛若多羅熟悉《十誦律》,他來到長安,姚興便請他誦出律典梵本,由羅什譯出,但才完成了三分之二,弗洛多羅便去世,譯事中斷,及至另一位西域僧人曇摩流支帶梵本來長安,才能完成工作。
第二是譯場即使有原文也不能隨便翻譯,還要看主譯者是否熟悉經文。
如湯用彤在《漢魏兩晉南北朝佛教史》中說:「 ⋯⋯古今譯書,風氣頗有不同。今日識外洋文字,未悉西人哲理,即可譯哲人名著。而深通西哲之學者,則不從事譯書。然古昔中國譯經之巨子,必須先即為佛學之大師。」
NMKT 微博 https://m.weibo.cn/status/4853870016858123