How to copy selected text?

[Ant6729]

Hello, everyone!

I woild like to see macro to copy selected text to the end of the document.\
Is this possible?

[gmayor]

That's fairly simple, though I assume you mean the 'highlighted' text and not 'selected' text.

Sub CopyTextatEnd()
Dim oRng As Range
Dim sText As String: sText = ""
    Set oRng = ActiveDocument.Range
    With oRng.Find
        .Highlight = True
        Do While .Execute
            sText = sText & vbCr & oRng.Text
            oRng.Collapse 0
        Loop
    End With
    ActiveDocument.Range.InsertAfter sText
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub

[Ant6729]

Excellent!!!
Thank u a lot!!