dear thanks for your advice
i tested it, but it coppy only one word then give me errowr as below,
Microsoft Visual Basic Run-time error '-2147417851 (80010105)':


Method 'Information' of object 'Range' failed
Continue, End, Debug, Help

note: not important for me to get page number, if it makes problem, specially it not wrote page number front of the word.

thanks very much for your care