I want to be able to select text near the start of a paragraph (it will be the title of a publication - see steps 1 and 3 below), and change it from BodyText to Heading 5 format.
The process would be, as I see it:
Manually select the text
With VBA:
  1. Go to the start of the selection
  2. Click Enter
  3. Go to the end of the selection
  4. Click Enter (this creates three paragraphs instead of one)
  5. Remove paragraph numbers from the two new paragraphs (2nd and 3rd)
  6. Format the middle paragraph as Heading 5
  7. With the Heading line still selected Click Alt + Ctrl + Enter (moves the third line to the end of the Heading line, where it was originally)
  8. Place the cursor in the first line
  9. Click Alt + Ctrl + Enter (moves the Heading and third line onto the first line, where it also was originally)
  10. Delete a space which will have been put in at the start of the Heading line.


Example:

Jack and Jill went up the hill to fetch a pale of water

becomes:

Jack and Jill
went up the hill
to fetch a pale of water

becomes:

Jack and Jill
went up the hill
to fetch a pale of water

becomes:

Jack and Jill went up the hill to fetch a pale of water


The purpose is to get these titles to show up in the Navigation pane (among Heading 1 headings) as a quick reference list.
Thanks for any help.
Geoff