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