_DTE.ActiveDocument Property
Gets the active document.
Assembly: EnvDTE (in EnvDTE.dll)
Sub ActiveDocumentExample() Dim objTextDoc As TextDocument Dim objEP As EditPoint 'Create a new text document. Call DTE.ItemOperations.NewFile("General\Text File") 'Get a handle to the new document. Set objTextDoc = DTE.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 = DTE.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
- Full trust for the immediate caller. This member cannot be used by partially trusted code. For more information, see Using Libraries from Partially Trusted Code.