Drawing a line on the cursor position

[sanamsalehi]

hello I send to items to Microsof t word with this code:

  Dim wdApp As Word.Application
   Dim oDoc As Word.Document
   Dim oRange As Word.Range
 
   'Create new hidden instance of Word.
   Set wdApp = New Word.Application
 
   With wdApp
       ' Show this instance of Word.
       .Visible = True
       .ScreenUpdating = False
       ' Code to automate Word here.
       'Add a new document
       Set oDoc = .Documents.Add
   End With
   Set oRange = oDoc.Range
   With oRange
       'move the cursor to start
       .Collapse wdCollapseStart
       'Make center current paragraph alignment
      .ParagraphFormat.Alignment = wdAlignParagraphCenter
       'To insert a paragraph or new line
 
       'to insert a text
       .InsertAfter "ã˜ÇäíÒã �ÑÏÇÎÊ �ÒÔ˜ ÎÇäæÇÏå"
       'Move the insertion point to end;
      .Collapse Direction:=wdCollapseEnd
       .InsertAfter vbCrLf
 
 
       .InsertAfter "äÇã æ äÇã ÎÇäæÇÏ�í" & ":" & Label7.Caption
       .InsertAfter vbTab
       .InsertAfter "ÓÇá" & ":" & MSFlexGrid1.TextMatrix(1, 1)
 
 
 

after this code I want draw a line in this document .
How can I do this?