Problem : Error 5552 “The selection does not consist of heading levels”
Hi,
I copied the below codes and tried to run on my word document, but I receive the error “The selection does not consist of heading levels”
Below are the codes. Can someone tell me exactly what’s wrong, and what do i need to do? I tried searching for this error in microsoft’s web, but can’t find anything….
Sub AllSectionsToSubDoc(ByRef doc As Word.Document)
Dim secCounter As Long
Dim NrSecs As Long
NrSecs = doc.Sections.Count
‘Start from the end because creating
‘Subdocs inserts additional sections
For secCounter = NrSecs – 1 To 1 Step -1
doc.Subdocuments.AddFromRa
doc.Sections(secCounter).R
Next secCounter
Solution : Error 5552 “The selection does not consist of heading levels”
The first paragraph of a subdocument should be a heading level.
In outline mode, promote the first paragraph from body text to a heading (left arrow on the outline toolbar)