DTE2.ActiveDocument Property
Gets the active document.
Namespace: EnvDTE80
Assembly: EnvDTE80 (in envdte80.dll)
Assembly: EnvDTE80 (in envdte80.dll)
Sub ActiveDocumentExample() Dim objTextDoc As TextDocument Dim objEP As EditPoint ' Create a new text document. Call DTE2.ItemOperations.NewFile("General\Text File") 'Get a handle to the new document. Set objTextDoc = DTE2.ActiveDocument.Object("TextDocument") Set objEP = objTextDoc.StartPoint.CreateEditPoint 'Create an EditPoint and add some text. objEP.Insert "A test sentence." End Sub Sub DocumentExample() Dim doc As Document Dim desc As String Set doc = DTE2.ActiveDocument desc = "You are editing a " If (doc.ReadOnly) Then desc = desc & "read-only" Else desc = desc & "writable" End If desc = desc & " document called " & doc.Name & " located at " & doc.Path MsgBox desc End Sub