VBA: Set two styles in one sentence

jeffreybrown · #4 09-07-2018, 02:19 PM

So apparently I don't understand the parts in blue. This code is applying the character styles to the commas also. I thought the parts in blue were formatting the commas also, but apparently not.

1) How can I stop the commas from retaining the character styles applied by the code?
2) How can the code skip the paragraph if the number of commas does not equal two?

Before
AFC 39-101, A Reference book, 23 August 2018
DAB 10-211, Automotive Manual, 16 January 2009
XYZ 39-101, Instruction cards
XYZ 39-101, Volume 1, Instruction cards, 23 December 2015

After
AFC 39-101, A Reference book, 23 August 2018
DAB 10-211, Automotive Manual, 16 January 2009
XYZ 39-101, Instruction cards (no format < 2 commas)
XYZ 39-101, Volume 1, Instruction cards, 23 December 2015 (no format > 2 commas)

Code:

Sub FormatReferencePara()
    Dim oPara   As Paragraph
    Dim oRng    As Range
    Dim oSel    As Range
    Set oSel = Selection.Range
    For Each oPara In oSel.Paragraphs
        Set oRng = oPara.Range
        oRng.Collapse 1
        oRng.MoveEndUntil Chr(44)
        oRng.End = oRng.End + 1
        oRng.Style = "Strong"
        oRng.Collapse 0
        oRng.MoveEndUntil Chr(44)
        oRng.End = oRng.End + 1
        oRng.Style = "Subtle Emphasis"
        oSel.Select
    Next oPara
lbl_Exit:
    Set oRng = Nothing
    Set oSel = Nothing
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Does a new set of styles in a template overwrite or remove the existing set of styles in a document?	dianahbr	Word	6	03-27-2018 11:12 PM
Two much blank space between names of styles in the Styles Pane	PereCasanellas	Word	0	10-06-2017 03:47 AM
Question about spacing between multi-level bullet styles (and other styles)	SDwriter	Word	0	09-26-2017 09:39 AM
Delete does not bring second sentence closer to first sentence	Andoheb	Word	29	07-03-2014 01:48 PM
Quick Styles Set saved but it doesnt appear at the styles list!	Pedro77	Word	3	10-15-2011 05:17 AM