HOW TO：使用巨集在 Visual Basic 或 C# 程式碼編輯器中加入文字

更新：2007 年 11 月

您可以使用擴充性物件模型 (Extensibility Object Model)，將程式碼加入至任何 Visual Basic、Visual C# 或 Visual J# 程式碼編輯器。這個功能可能的使用方法包括加入新程序和加入標準註解區塊。這項工作假設您已經知道如何存取巨集開發環境和建立巨集專案。如需詳細資訊，請參閱加入巨集專案對話方塊。若要實作下列巨集範例，必須開啟 Visual Basic 專案。

下列步驟會將程式碼加入至 Visual Basic 程式碼編輯器。若要將程式碼加入至 Visual C# 程式碼編輯器，請在步驟 5 中使用 prjKindCSharpProject 列舉值。若要將程式碼加入至 Visual J# 程式碼編輯器，請在步驟 5 中使用 prjKindVJSharpProject 列舉值。

注意事項：
根據目前使用的設定與版本，您所看到的對話方塊與功能表命令可能會與 [說明] 中所描述的不同。使用 [一般開發設定] 開發了這些程序。若要變更設定，請從 [工具] 功能表中選擇 [匯入和匯出設定]。如需詳細資訊，請參閱 Visual Studio 設定。

若要將文字加入至現用的 Visual Basic 程式碼編輯器最上方

1. 建立名為 EditorMacros 的新巨集模組。

2. 建立新巨集 AddSomeText 的方法是將下列程式碼加入至巨集模組：

   Public Sub AddSomeText()
      ' Will add code here to add text.
   End Sub
   

3. 宣告和初始化變數，以參考開放程式碼編輯器。

   Dim doc As Document = DTE.ActiveDocument
   

   如需詳細資訊，請參閱 Document 物件和 ActiveDocument 屬性。

4. Document 物件包含 TextDocument 物件，您可以依照下列方式使用 Object 方法來存取 TextDocument 物件：

   Dim textDoc As TextDocument = _
      CType(doc.Object("TextDocument"), TextDocument)
   

5. 若要確定程式碼是加入至 Visual Basic 程式碼編輯器，您可以測試包含視窗之專案的 Kind 屬性。

   If doc.ProjectItem.ContainingProject.Kind = _
   VSLangProj.PrjKind.prjKindVBProject Then
      ' Add code here to insert text.
   End If
   

6. 您可以使用 TextDocument 物件，在編輯器的開始處建立編輯點，然後再使用 Selection 屬性的 Insert 方法，將文字加入至編輯器。如需詳細資訊，請參閱 CreateEditPoint 方法和 Selection 屬性。

   textDoc.StartPoint.CreateEditPoint()
   textDoc.Selection.Insert("' A comment")
   

   完整的巨集顯示如下：

   Public Sub AddSomeText()
      Dim doc As Document = DTE.ActiveDocument
      Dim textDoc As TextDocument = _
         CType(doc.Object("TextDocument"), TextDocument)
      If doc.ProjectItem.ContainingProject.Kind = _
         VSLangProj.PrjKind.prjKindVBProject Then
         textDoc.StartPoint.CreateEditPoint()
         textDoc.Selection.Insert("' A comment")
      End If
   End Sub
   

7. 儲存巨集，關閉 [巨集 IDE]，然後從 [巨集總管] 中執行巨集。

請參閱

參考

ActiveDocument

Document

TextDocument