|
|
|
|
#1
05-05-2013, 04:16 PM
|
||||
|
||||
You can do this with a fairly simple macro:
Code:
Sub Demo()
Application.ScreenUpdating = False
Dim Prgrph As Paragraph, i As Long, Rng As Range
For Each Prgrph In ActiveDocument.Paragraphs
If Prgrph.Style Like "Heading #" Then
i = i + 1
Set Rng = Prgrph.Range
Rng.End = Rng.End - 1
Rng.Text = 10000 + i
End If
Next
Application.ScreenUpdating = True
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
|
| Tags |
| headings numeric |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 How to add space between heading number and heading text
|
Dr Wu | Word | 4 | 07-15-2018 03:52 AM |
|
How to Restore Heading 1, Heading 2, etc. within a Word Document
|
cheech1981 | Word | 9 | 01-11-2017 02:14 AM |
| Challenging Heading Edit with Find Replace | binar | Word | 10 | 12-23-2012 08:16 PM |
|
Macro to replace one specific heading style with another
|
ubns | Word VBA | 44 | 09-04-2012 08:17 PM |
|
Styles: Heading 4 stuck at same heading number
|
Hallet | Word | 1 | 05-31-2012 02:37 PM |
Windows 7 64bit 
Office 2010 32bit
Hybrid Mode