刪除書籤 巨集

 

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