Sub Macro1()
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
Dim s1 As Shape
Dim count As Integer
count = OrigSelection.count
Set s1 = OrigSelection(count)
For i = count - 1 To 1 Step -1
Set s1 = s1.Weld(OrigSelection(i), True, True)
Next i
OrigSelection.Delete
Dim brk1 As ShapeRange
Set brk1 = s1.BreakApartEx
End Sub
<div class="card">
<input type="radio" id="rad1" name="license" value="13" >
<label for="rad1" class="plan">LICENSE PLAN#1</label>
<p class="price">$13 per license</p>
</div>
<div class="card">
<input type="radio" id="rad2" name="license" value="22">
<label for="rad2" class="plan">LICENSE PLAN#2</label>
<p class="price">$22 per license</p>
</div>
<div class="card">
<input type="radio" id="rad3" name="license" value="32">
<label for="rad3" class="plan">LICENSE PLAN#3</label>
<p class="price">$32 per license</p>
</div>
$re = '/(.*)\/.*/m';
$str = '/public_html/reviews/index.php';
$subst = '$1';
$result = preg_replace($re, $subst, $str);
echo "The result of the substitution is ".$result;$re = '/.*?(jmcs:.*?)".*/m';
$str = '"__class": "ContentAuthorizationEntry",
"duration": 300,
"changelist": 544216,
"urls": {
"jmcs://jd-contents/Sun/Sun_ULTRA.webm": "https://jd-s3.akamaized.net/private/map/Sun/Sun_ULTRA.webm/9c28826a30e2df0709aa023f3011d2ab.webm?auth=exp=16179930733600~acl=/private/map/Sun/*~hmac=5132987c51a3bcda04d7ef516a0d52af97acc530b65a25a6c9af1e508f1f9b4a",
..............
"jmcs://jd-contents/Sun/Sun.ogg": "https://jd-s3.akamaized.net/private/map/Sun/Sun.ogg/912779afd750760452be587dc7527d0f.ogg?auth=exp=16179930733600~acl=/private/map/Sun/*~hmac=5132987c51a3bcda04d7ef516a0d52af97acc530b65a25a6c9af1e508f1f9b4a"
}
}';
$subst = '$1';
$result = preg_replace($re, $subst, $str);
echo "The result of the substitution is ".$result;