Oscar Sun

                  Sub 書籤_以選取文字作為書籤() 'ALT+SHIFT+B

' 巨集錄製於 2015/9/20，錄製者 王觀如
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:=Replace(Selection.Text, Chr(13), "")
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub