EditPoint::MoveToAbsoluteOffset Method (Int32)

Sub MoveToAbsoluteOffsetExample()
   Dim objTextDoc As TextDocument
   Dim objEditPt As EditPoint, iCtr As Integer

   ' Create a new text file.
   DTE.ItemOperations.NewFile("General\Text File")

   ' Get a handle to the new document and create an EditPoint.
   objTextDoc = DTE.ActiveDocument.Object("TextDocument")
   objEditPt = objTextDoc.StartPoint.CreateEditPoint

   ' Insert ten lines of text.
   For iCtr = 1 To 10
      objEditPt.Insert("This is a test." & Chr(13))
   Next iCtr
   objEditPt.MoveToAbsoluteOffset(10)
   objEditPt.Insert("HELLO")
   objEditPt.MoveToLineAndOffset(4, 5)
   objEditPt.Insert("WORLD")
End Sub