Hello gmayor,

Sorry if I wasn't clear enought!

Yes you are right, in the example I gave "Optiflux 2100 C" it is three words in fact. What I want to do is to copy to the end of the line next to "Modelo:", it could be one word or more, this is what this routine do

Selection.MoveRight Unit:=wdCharacter, Count:=1    
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Copy     
Modelo1 = Selection




You have a list of things to exclude, but what do you want to do with those words that are not excluded when they are found?
When the selection is different of "IFC 100 W", "IFC 100 C", "IFC 070 C", (...) a variable must have the same value of the selection.


Can I help to clarify other questions?

Regards