Visual Studio宏需要幫助

Question

我有一個宏，它將版權標題添加到我的VB文件中，但不幸的是它的行爲並不像預期的那樣。

這裏的宏

Imports System 
Imports EnvDTE 
Imports EnvDTE80 
Imports EnvDTE90 
Imports EnvDTE90a 
Imports EnvDTE100 
Imports System.Diagnostics 

Public Module CopyrightCode 
    Sub AddCopyrightHeader() 

     Dim doc As Document 
     Dim docName As String 
     Dim companyName As String = "My Company" 
     Dim authorName As String = "rockinthesixstring" 
     Dim authorEmail As String = "rockinthesixstring@example.com" 
     Dim copyrightText As String = "All code is Copyright © " & vbCrLf & _ 
     "'  - My Exceptional Company (http://example.com)" & vbCrLf & _ 
     "'  All Rights Reserved" 

     ' Get the name of this object from the file name 
     doc = DTE.ActiveDocument 

     ' Get the name of the current document 
     docName = doc.Name 

     ' Set selection to top of document 
     DTE.ActiveDocument.Selection.StartOfDocument() 
     DTE.ActiveDocument.Selection.NewLine() 

     Dim sb As New StringBuilder 
     sb.Append("' --------------------------------") 
     sb.Append(vbCrLf) 
     sb.Append("' <copyright file=""" & docName & """ company=""" & companyName & """>") 
     sb.Append(vbCrLf) 
     sb.Append(copyrightText) 
     sb.Append(vbCrLf) 
     sb.Append("' </copyright>") 
     sb.Append(vbCrLf) 
     sb.Append("' <author>" & authorName & "</author>") 
     sb.Append(vbCrLf) 
     sb.Append("' <email>" & authorEmail & "</email>") 
     sb.Append(vbCrLf) 
     sb.Append("' <date>" & FormatDateTime(Date.Now, vbLongDate) & "</date>") 
     sb.Append(vbCrLf) 
     sb.Append("' ---------------------------------") 

     ' Write first line 
     DTE.ActiveDocument.Selection.LineUp() 
     DTE.ActiveDocument.Selection.Text = sb.ToString 

    End Sub 
End Module 

但問題是，它增加四個引號的，我必須去一個手動刪除插件末端。這些引號來自哪裏？

' -------------------------------- 
' <copyright file="MyFile.vb" company="My Company"> 
'  All code is Copyright ©  
'  - My Exceptional Company (http://example.com) 
'  All Rights Reserved 
' </copyright> 
' <author>rockinthesixstring</author> 
' <email>rockinthesixstring@example.com</email> 
' <date>Monday, July 05, 2010</date> 
' --------------------------------- 
"""" 

但是如果我使用單引號，這一切都很好。

sb.Append("' <copyright file='" & docName & "' company='" & companyName & "'>") 

Answer 1

沒有repro，它們不是來自宏。考慮某種Visual Studio插件作爲問題的根源。