#1
|
|||
|
|||
Need VBA to renumber chapters
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! |
#2
|
||||
|
||||
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
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
||||
|
||||
Quote:
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).
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#4
|
|||
|
|||
Works magnificently. Thank you!
|
Tags |
chapter titles, vba in microsoft word |
|
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 |