Question

From this page I found out how to create a macro that selects current paragraph text.

Sub SelectCurrentParagraph()
   Selection.Paragraphs(1).Range.Select
End Sub

But I ned this: When I put cursor inside a paragraph, macro will select paragraph text and copy it to clipboard. How can I do this?

Answer 1

The following will copy your selection but checking for wdSelectionNormal will skip frames, shapes etc:

Selection.Paragraphs(1).Range.Select

If Selection.Type = wdSelectionNormal Then
    Selection.Copy
End If