how to reduce width of tags using vba?

is there any scripts?