Random Script

'Find and replace the specified text.
Selection.Find.Execute Wrap:=wdFindContinue, Forward:=wdTrue, FindText:="__", ReplaceWith:="__"
 
'Find and move the specified text. 
Selection.Find.Execute Wrap:=wdFindContinue, Forward:=wdTrue, FindText:="__"
If Selection.Find.Found = True Then
Selection.EndKey unit:=wdLine, Extend:=wdExtend
Selection.Cut
Selection.MoveUp unit:=wdLine, Count:=1
Selection.PasteAndFormat (wdPasteDefault)
End If

MMXI Maiden Journey

Hi everyone! My name is Arnel. I'm opening my very first blog site, my new personal hobby. Anything goes here, including personal opinions, insights, rants and venting, except for any offensive, derogatory, or discriminatory remarks or any unsafe or unhealthy discussion in general.


My thanks to Google for providing this free service to everyone who enjoys freedom of expression.


Happy New Year! I wish for this world to become a better place for the next generations.