Get selected text in VBA

Dear all
I have word document I which I have 10 lines. if I select line 1 and 7 with control key, how can I get only selected lines in VBA ?
I have tried with 'Application.Selection.Text' but it gives me only last selected line that is only 7th Line
Please help me to get out of this issue

Thanks

you could try copying the selection, then retrieve the text from the clipboard

There is very little that can be done with discontiguous selections without doing a bit of hackery type coding.

See: Limited programmatic access to Word discontiguous selections

With that stated, one method is to set a unique format on the Selection and then search for that format. I chose to set the Font Size to 1.

Code:

---

Selection.Font.Size = 1
Dim foundText As New Collection ' to store the individual selections

Dim searchRange As Word.Range
Set searchRange = ActiveDocument.Range

With searchRange.find
  .ClearFormatting
  .Font.Size = 1
  .Format = True
  .Execute
  Do While .Found
      foundText.Add searchRange.Text
      .Execute
  Loop
End With
ActiveDocument.Undo ' undo Font.Size = 1

Dim txt As Variant
For Each txt In foundText
  Debug.Print txt
Next txt

---

i tested my previous suggestion, like

Code:

---

set myclip = createobject("Clipbrd.Clipboard")
myclip.clear
selection.copy
debug.print myclip.gettext

---

use your own method to access the clipboard, you can use a dataobject or APIs, else checkout
http://www.vbforums.com/showthread.php?t=585616