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

  • 發行項

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

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

注意事項注意事項

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

若要將文字加入至現用的 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 方法來存取它：

    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