@u88 רק יש לציין שחסר שם פקודה להסרת תווים של נקודות ופסיקים, אז הנה הקוד המלא:
Sub סימניה()
    With ActiveDocument.Bookmarks
    cleanText = Replace(Selection.Range, """", "")
    cleanText = Replace(cleanText, " ", "_")
    cleanText = Replace(cleanText, "'", "")
    cleanText = Replace(cleanText, "]", "")
    cleanText = Replace(cleanText, "[", "")
    cleanText = Replace(cleanText, "(", "")
    cleanText = Replace(cleanText, ")", "")
    cleanText = Replace(cleanText, ",", "")
    cleanText = Replace(cleanText, ".", "")
    
        MsgBox cleanText
        .Add Range:=Selection.Range, Name:=cleanText
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub