Select Code to Download

Select or download this

$selection->Find->ClearFormatting;
$selection->Find->{Text} = "*";
$find_exec_res = $selection->Find->Execute;
$move_res = $selection->MoveRight ( {Unit => wdCharacter, Count => 1} 
+);
$selection->InsertSymbol( { Font=> "Wingdings", CharacterNumber => -40
+62, Unicode => 1 });

Select or download this

$selection->MoveLeft ({Unit => wdCharacter, Count => 9999});
$selection->MoveUp   ({Unit => wdLine, Count => 9999});