#16
|
||||
|
||||
That's because the code was written to not delete anything from the first subordinate heading onwards. If you delete everything after every Heading 1, you're liable to end up with an essentially empty document. Still, if that's what you want: Code:
Sub DeleteHeadingText() Application.ScreenUpdating = False Dim Rng As Range With ActiveDocument.Range With .Find .ClearFormatting .Replacement.ClearFormatting .Text = "" .Style = wdStyleHeading1 .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute End With Do While .Find.Found Set Rng = .Duplicate.GoTo(What:=wdGoToBookmark, Name:="\HeadingLevel") Rng.Text = vbNullString .Find.Execute Loop End With Application.ScreenUpdating = True End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#17
|
||||
|
||||
Cross-posted at: Excel VBA code to Delete 'Heading 1' from Word Document
For cross-posting etiquette, please read: Excelguru Help Site - A message to forum cross posters
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Convert numbers to a specific text string | francis | Excel | 1 | 10-06-2011 01:43 PM |
delete all bookmark text | hklein | Word VBA | 4 | 08-10-2011 04:33 AM |
Need help extracting specific text from one doument to another with macro/VBA. | zsmithku | Word | 1 | 04-15-2011 03:46 PM |
Delete text | Michael007 | Office | 13 | 01-01-2011 10:38 PM |
Selecting specific text out of a series of columns | speedycorn1 | Word | 3 | 11-01-2010 02:58 PM |