Help for this page
while( $text =~ /($pattern)/g ) { my $startindex = $-[0]; ... $vsoChars->{Text} = $capture; $vsoChars->SetProperty( 'CharProps', 1, $color ); }
while( $text =~ /($pattern)/g ) { my $vsoChars = $VShape->Characters; ... $vsoChars->{Text} = $1; $vsoChars->SetProperty( 'CharProps', 1, $color ); }