Я наконец-то приступил к созданию этого грубого макроса ниже, сначала записав временный макрос в Visual Studio, а затем изменив его так, чтобы он выглядел следующим образом:
Option Strict Off
Option Explicit Off
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics
Public Module CountNonWhiteSpaceCharacters
Sub Count()
Dim selection As EnvDTE.TextSelection = DTE.ActiveDocument.Selection()
Dim text As String = selection.Text
text = text.Replace(" ", "")
text = text.Replace(vbCrLf, "")
text = text.Replace(vbTab, "")
MsgBox("Count " + text.Length.ToString())
End Sub
End Module
При желании это может быть связано с сочетанием клавиш. В противном случае, двойной щелчок по нему в Macro Explorer запустит его.