Microsoft Office Forums - View Single Post - [Solved] Multiple conditional operators with Find/Execute & move cursor at the end of a range

alex100 · 05-29-2020, 07:10 AM

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.

Code:

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.

Code:

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