applying heading style within paragraph using macro

macropod · #7 08-21-2017, 03:08 PM

Try something along the lines of:

Code:

Sub ChangeAPA2toAPA3()
'
' ChangeAPA2toAPA3 Macro
' Changes from freestanding APA 2 level subhead to run-in APA level 3 subhead.
' Uses BodyText style to define the trailing paragraph style.
'
With Selection
  .Font.Reset
  With .Paragraphs.Last
    .Style = "Body Text"
    .Range.Case = wdLowerCase
    .Range.Case = wdTitleSentence
  End With
  With .Paragraphs.First
    .Style = "Heading 3"
  End With
  .Collapse wdCollapseStart
  .InsertStyleSeparator
End With
End Sub

Note: The above code assumes you've already split the heading & run-in text into two paragraphs. If you're trying to apply bolding to the "Heading 3" content, that should be done via a change in the Style definition; if you're doing it to the run-in text, you should apply the "Strong" Style to that.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Applying heading style to multiple pages at once	jane.bugai	Word	5	02-24-2017 04:05 PM
Using heading style level in a paragraph	kam	Word	7	03-24-2014 02:58 PM
Macro to replace one specific heading style with another	ubns	Word VBA	44	09-04-2012 08:17 PM
Applying style to first part of paragraph	foxtrot	Word	3	07-24-2012 07:30 AM
Character style stripped while applying paragraph style	sams_gates	Word	0	08-29-2009 02:03 AM