wdtitleword - usa vba para aplicar a más de una palabra

En Word, es fácil usar vba para aplicar un resaltado a más de una cadena, palabra, oración, etc., después de que el usuario del documento haya seleccionado Ctrl con un grupo de ellas. Sin embargo, cuando hago Ctrl-select algunas palabras y ejecuto la siguiente declaración, solo cambia la última de mis palabras seleccionadas. ¿Hay alguna manera de aplicar wdtitleword a más de una palabra seleccionada? Gracias.

sub a()
Selection.Range.Case = wdTitleWord
end sub