Sub Test() MsgBox "The document has " & ActiveDocument.SymbolLibrary.Symbols.Count & " unique symbols."End Sub