Похоже, просто, через VBA это сделать невозможно - статья http://support.microsoft.com/kb/q288424/]Q288424 "Limited programmatic access to Word discontiguous selections" (для MS Word 2003, но скорее всего в Word 2007 без изменений...)

Limitations for working with discontiguous selections using the Word object model
• You cannot select a discontiguous range programmatically by using the Word object model . A discontiguous selection may only be created by the user in the Word UI.
• A Range object cannot contain multiple subranges. Therefore, if the current selection is discontiguous, Selection.Range will return the last subrange that the user selected.

Т.е. объектная модель MS Word не позволяет программно выделять несмежные диапазоны; объект Range не_может состоять из нескольких поддиапазонов...