

Here is a sample code for you reference: Sub Clearpages() Dim rgePages As Range Dim PageCount As Integer PageCount ActiveDocument.ComputeStatistics(wdStatisticPages) Selection. You can use the Range.End to set the end of the region.

Select the Table of Contents tab in the dialog box that opens.Scroll down and click on Index and Tables.Step 2: Go to the Insert menu at the top of the screen.Removing page numbers would be an easy way to create the Table of Contents for an ebook. Also, when publishing an ebook, page numbers are not needed.

It’s easy to send the Table of Contents as an outline if I can remove the numbers. I am writing a Hermeneutics book and need to send an outline of the book to a mentor. It took me a while to figure this out and I thought I should write it down and put it online to help others who might be looking for how to do this and also to help me in the future in case I forget how to do the same thing.
