Multiple conditional operators with Find/Execute & move cursor at the end of a range

[alex100]

I have two questions, please...

1) I'm using the code below to change all fonts that have a size of 10. How can I adapt it so that it can also include font sizes smaller than 10? I tried setting the size condition to '.Font.Size <= 10' but all I received was an error.

Dim MyRange As range
Set MyRange = Selection.range
With MyRange.Find
    .Font.Size = 10
    .Forward = False
    .Replacement.Font.Size = 12
    .Replacement.Font.Name = "Arial"
    .Execute Replace:=wdReplaceAll
   End With

2) Using the following code for pasting, how can I move the cursor at the end of the range? As it is now, it only moves it at the end of the first paragraph.

Dim pasted_content As range
Set pasted_content = Selection.range
pasted_content.Paste
With pasted_content
    Selection.MoveEnd Unit:=wdParagraph, Count:=1
End With

Thank you!

Alex