vs2008生成guid之vb宏

vs2008生成guid之vb宏

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