Split paragraph into two different styles

jeffreybrown · #1 09-09-2018, 03:59 PM

I know how to do this manually by using the Style Seperator, but when recorded, I just get...

Code:

Sub Macro3()
    Selection.TypeParagraph
    Selection.InsertStyleSeparator
End Sub

I can find the word Statement of Conditions, but how do I find between the end of the word "Conditions" and the beginning of the word "The" to create the split? Statement of Conditions will Heading 1 and the rest of the paragraph will just be Normal style.

Quote:

Statement of Conditions. The normal hours of operation vary depending on size and/or location: smaller libraries usually operate 20-40 hours per week and larger libraries operate 40- 60 hours per week. There are no general conditions (environmental, equipment, facility, performance standards, or wartime conditions) that have an impact on the manpower requirements.

I'm using a couple of macros to first apply Heading 1 to three different words and then applying Heading 2 to everything in-between Heading 1.

Example and macros attached with before and after.

macropod · #2 09-09-2018, 07:42 PM

For example:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim Rng As Range
Set Rng = Selection.Range
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "Statement of Conditions"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    .Paragraphs.First.Style = wdStyleNormal
    .InsertAfter vbCr
    .Style = wdStyleHeading1
    .Select
    Selection.InsertStyleSeparator
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Rng.Select
Application.ScreenUpdating = True
End Sub

jeffreybrown · #3 09-09-2018, 09:02 PM

Thank you Paul. This works great.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I order the paragraph styles list?	Tunathedog	Word	3	04-08-2016 05:37 AM
Split pilcrow or paragraph symbol	nfotx	Word	2	12-05-2014 02:48 PM
Split a paragraph	bnyamin	Word VBA	13	10-05-2014 08:18 PM
Changing Paragraph Styles	mjawatney	Word	6	04-20-2014 05:15 PM
Multiple styles in same paragraph?	Cobb78	Word	1	05-20-2012 03:04 PM