@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