Drawing a line on the cursor position

word , vb6 , line Iran
  • 8 years ago

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

    [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)
    

    [/code]

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

Post a reply

No one has replied yet! Why not be the first?

Sign in or Join us (it's free).

Contribute

Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!

Our tools

We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.

“Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it.” - Brian Kernighan