Search active document

I have this code working

txtFIND = "Order#"
txtREPLACE = TextBox12
For Each d In Documents 'Loop all the open documents
For Each p In d.Pages 'Loop each page
p.TextReplace txtFIND, txtREPLACE, True, False
Next p
Next d

But I need it to just search the active page and not the entire document with multiple pages and any other document that is open in corel.

What am I doing wrong here?