Hi Paulo,

Microsoft never implemented the parts of VBA needed to work with multiple
selections. The limited number of things you can do are documented here:
http://support.microsoft.com/?kbid=288424

Here's a workaround that may help:

- Declare a new character style in the document. Make its formatting just
Default Paragraph Text (in other words, it doesn't apply any formatting that
isn't already there).

- Apply that character style to the Selection. All the subranges of the
multiple selection will receive the style.

- Declare a Range object, and use its .Find property to iterate through all
the ranges having the character style. Within each found subrange, do
whatever processing you need.

Hi Paulo,

You could do a lot of difficult and tedious programming.

As far as I know know, coding for the discontiguous selection
by MS was never finished.

However, if you really want to have it, and if all
of the text in the selection is formatted the same way:

Remember the formatting of the selection.
Check for a formatting, not used otherwise in the doc.
Apply this formatting to the selection.
All parts of the discontiguous selection
are now formatted in a way, unique to the doc.
Search for this formatting, using the range-object.
Insert the text you like, search again.
Having finished, restore the original formatting.
Plus lots of complications.

Yu may even create on array of ranges,
defined by the formatting.

Nothing but a workaround, of course,
but some people enjoy things like that.

Here is an example for counting, how many parts
this kind of selection has:

Function NumberOfSelections() As Long
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
Selection.Font.Color = wdColorRed
With rDcm.Find
  .Font.Color = wdColorRed
  ' assumed that there is no red text
  .Format = True
  While .Execute
    NumberOfSelections = NumberOfSelections + 1
  Wend
End With
Set rDcm = ActiveDocument.Range
With rDcm.Find
  .Font.Color = wdColorRed
  .Format = True
  While .Execute
     rDcm.Font.Color = wdColorAutomatic ' assumed
     rDcm.Collapse direction:=wdCollapseEnd
  Wend
End With
End Function

Sub test9001()
  MsgBox NumberOfSelections
End Sub