Need VBA to renumber chapters

macropod · #4 01-02-2017, 10:10 PM

Quote:

Originally Posted by bobbyrjw

I have a 20k word story that has been edit-chopped.
I want VBA to find each instance of the word "Chapter" and add a number that increments on each iteration, or "find". and I want to change the style to heading 1.

You might not want to do that if there's a cross-reference somewhere pointing to a different chapter. Besides which, there's a better way.

Assuming you want to use Heading 1 only for Chapter titles, you can assign a multi-level list number to that Style and prefix the list-level number with the word 'Chapter'. Then simply find the chapter headings and apply the Heading 1 Style to them - the numbering will take care of itself (even if you do further edits).

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
I want a Word 2013 table to automatically renumber the list when I add a new row into the middle.	ar8294	Word Tables	7	07-03-2016 01:58 PM
Renumber and Multi-Level List functions don't work?	ar8294	Word Tables	2	07-03-2016 10:49 AM
How to number chapters and sub-chapters in a few clicks?	Icelandic_Boy	Word	1	05-24-2016 11:33 AM
Chapters only Table of Contents	SQLUSA	Word	2	07-04-2012 03:36 PM
Page numbering - Chapters	Andrew Thorpe	Word	0	08-04-2010 11:04 AM