Have to print a monthly 1000 page txt file. Unfortunately, not all pages end with a page break, as some lines from the next page appear on the previous page.
Each page concludes with a line of asterisks. Created a Word macro, looking for the line of asterisks and if found, tested if the next line contained text from the following page. If so, an insert page break would occur.
The macro works, but now I would like to convert into vbscript.
Started my vbscript by performing the following
Opened file and then tried running the following line from my macro and it does not work
CurrentPagnr = Selection.Information(wdActiveEndPageNumber) ‘checks for current page
After looking up solutions online, someone suggested using the following library (Word.wdInformation), since I am no longer using the Word macro.
Word.wdInformation.wdActiveEndPageNumber instead of Selection.Information
Here is the new line I have tried in many variations
Set objWord = CreateObject(“Word.Application”)
CurrentPagnr = objWord.Selection.Information(Word.WdInformation.w dActiveEndPageNumber) ‘objWord is
This does not work, giving me the following error message
Microsoft VBScript runtime error: Variable is undefined: 'Word'



Any suggestions

Word.WdInformation would be meaningless, as would Word.wdInformation.wdActiveEndPageNumber. Since you're using late binding, you should be using objWord.Selection.Information(3), since 3 = wdActiveEndPageNumber.

That said, the fact you're even using Selection suggests the code is quite inefficient - there is very little one would need to do in VBA/VBS that requires anything to be selected.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

So how would you check the end of page without using Selection. Your solution helped, as now it appears to work
Where would I find a link to the Numeric Values for Selection.Information and Selection.InsertBreak. As you stated wdActiveEndPageNumber=2

Without seeing the rest of your code, I can't tell you what you need to change to make it more efficient.

If you want to find the enumeration constants for Information, InsertBreak, etc., look in the Word VBA help file.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Could not find any information on the Information, or InsertBreak Help file
Here is what I did. Opened up Visual Basic Editor-Help-Microsoft Visual Basic for Application Help. Included a screenshot of
Sorry, there are no results for
InsertBreak

Also tested this for Enumeration, Constants, Information and same result. I am using MS Word 2010.

I also included the script in another attachment. Just curious how you would iterate through the Word Document using vbscript other than using .Selection

Thanks for your assistance

Attached Files

	InsertBreak Screenshot.docx (32.1 KB, 7 views)
	VBSscript.docx (14.6 KB, 8 views)

With some code for Selection.Information in the VBE, I clicked on 'Information' and pressed F1. Up popped:
The formatting's off, as the board doesn't replicate it but, as you'll can see if you do the same, the Data Type is WdInformation. So, I copied that to the Search box and pressed Enter. Up popped:
So I clicked on the first one and up popped the WdInformation Enumeration:
Again, the formatting's off, but you get the general idea.

As you can see, 'Information' can return many details. These all have enumerated constants (which I've applied bold/red type to). With early binding, you can use the constants; with late binding you need to use their enumeration. It's a similar story with 'InsertBreak'.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]