Run-in sidehead in TOC

Type the heading part and assign the correct heading style to it. Then insert a style separator character (Ctrl+Alt+Enter) after the period at the end of the heading part, and start typing the rest of the paragraph (which will be in the style defined as the Following Style for the heading). The TOC will pick up only the part with the heading style.

See http://wordfaqs.mvps.org/RunInSidehead.htm for more suggestions.

I do not give answers to posts that do not have something about the problem in the title of the post.

Hi Jay - thanks for this.  Unfortunately, I'm formatting an existing document so I'm having to insert the style separator in the paragraphs where the levels are (APA) 3 and lower.  It's time-consuming but it does work.  I was hoping for a quicker method!  Your response is appreciated anyway.  Kind regards,

Grimalkin

Word applies the style separator formatting to the next paragraph mark after the cursor.  The only time Word seems to insert the style separator is near the end of the file, when the next paragraph mark is the end of the file.

Splitting each of the paragraphs and then rejoining them by pressing Ctrl+Alt+Enter before the one you just entered is a pain.  But you can create one and then copy it to the clipboard.  After that you can position the cursor and click the clipboard entry and then apply your heading style. 

If you need to do this often, you might like this macro, which inserts a style separator at the cursor position.  You'll still have to apply the heading style, though.

 As you can see, it does the same thing we would have to do manually. Because your document is already formatted, you may want to put a ' before "Selection.Range.Style = ActiveDocument.Styles
(wdStyleNormal)" to comment it out.  

Sub StyleSepandFormat()

'

' StyleSepandFormat Macro

'

'

    Selection.TypeParagraph

    Selection.MoveLeft Unit:=wdCharacter, Count:=1

    Selection.InsertStyleSeparator

    Selection.MoveRight Unit:=wdCharacter, Count:=1

    Selection.Range.Style = ActiveDocument.Styles(wdStyleNormal)

End Sub

I did not write it.  I think one of the MVPs did, but he didn't put his name on it and I forgot to.

Hi Pam - thank you for this.  I am going to try the macro because I get quite a lot of these documents to work on.  I do appreciate your help.  Kind regards, G