rTextRange	SetStyle
rTextRange Collection As rtCollection endObject ID startObject Text useSpecialCharacters Clone Collapse As rTextRange Insert New setStyle	version 1.5 Sub setStyle (newStyle As styleObject) Sets the style to all objects in range.