$sel->Find->{Text} = '##HYPERLINK##';
	$sel->Find->Execute;
	$sel->Delete;
	#$sel->InsertAfter->Hyperlinks->Add({("$link")});
	
	my $hyperlink = "http://www.perlmonks.org/";
	$sel->TypeText("Sharepoint Link");
	my $range = $MSWord->ActiveDocument->Content; 
	$doc->Hyperlinks->Add({
							Anchor => $range,
							Address => "$hyperlink"
							});
	$sel->MoveDown({Count=>1});