Need VBA to renumber chapters

bobbyrjw · #1 01-02-2017, 06:00 PM

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.
here is the mess I have that is not working.
I didn't know if I can dispense with the replacement text, so I entered the same as the find text.

I'm not sure it is looping all the way through the doc.
I can't find the common practice to delineate code so I will do this;

[begin VBA code]

Sub Makro6()
'
' Makro6 Makro
'
'
Dim chanumb As Integer
chanumb = 1

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "chapter"
.Replacement.Text = "Chapter " & chanumb
.Style = ActiveDocument.Styles("Heading 1")
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False

End With
chanumb = chanumb + 1
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

[/end VBA code]

Thank you!

gmayor · #2 01-02-2017, 09:50 PM

Use a SEQ field for the chapter numbers then if you change the orrder again you can update the field to change the numbers e.g.

Code:

Sub Makro7()
Dim oRng As Range
Dim oFound As Range
    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute(FindText:="Chapter")
            Set oFound = oRng
            oRng.Collapse 0
            oRng.Fields.Add oRng, wdFieldSequence, "ChapterNum", False
            oRng.InsertBefore Chr(32)
            oFound.End = oRng.End
            oFound.Style = "Heading 1"
            oRng.Collapse 0
        Loop
    End With
End Sub

macropod · #3 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).

bobbyrjw · #4 01-03-2017, 12:15 AM

Works magnificently. Thank you!

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