What is the current page?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

With

For each sen in activedocument.sentence
if 0<> instr(sen,"#") then debug.print CurrentPag
Nex

How do I establish CurrentPage? Failing that, the Current Section

Thanks
 
I'm not sure what you are trying to accomplish here, but one way to
print (to the Immediate Window of the VBA Editor) the contents of the
current page is to use the following code:

Debug.Print ActiveDocument.Bookmarks("\Page").Range.Text
 
If you click on More, then use the Format menu, you can tell F&R to only
find quotation marks that are in a certain font. See if that works.

DM
 
Well, the code I posted retrieves the text of the current page, which
was what I thought you were looking for.

If you ever need help in the future, please include as many details as
possible in your initial message. That way, potential helpers would be
able to offer more useful help -- not to mention the fact that some of
us would realize that we had nothing useful to say... <g>

However, Dayo's suggestion seems promising, doesn't it?

--
Stefan Blom


AA2e72E said:
I have several large documents, written at various times. I collate
Click to expand...
all these documents in one large document. The individual documents
contain inconsistencies e.g. some have curly quotes, ohthers don't.
I can search the collated document for all occurences of curly
Click to expand...
quotes & print the sentence. I'd also like to be able to print the
section number (each document occupies a section) or failing that the
page number.
Then, knowing the text & page or section number, I can easily make
Click to expand...
the corrections. I CANNOT use Find/Replace because I also have another
font in these documents that Word sees as the characters I want to
replace. E.g ' is seen as delta.
 
Back
Top