For some reason, I need a vba code (word 2013) that


1) Moves first to the first paragraph
2) Selects the text in that paragraph
3) Do an event.

Afterwards, it should move to the next paragraph .....etc. till the last paragraph.

I've tried this code:

Dim wdoc As Document
Dim Para As Paragraph
Set wdoc = ActiveDocument
For Each Para In wdoc.Paragraphs
do.....
Next Para

But it doesn't move to the next paragraph.

Thanks in advance