Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics
Public Module Module1
Sub EX_GeneralGUID()
'' General a guid string
''
Dim strGUID As String
strGUID = System.Guid.NewGuid.ToString()
strGUID = UCase(strGUID.Replace("-", "_"))
ActiveDocument.Selection.text = strGUID
End Sub
End Module