Setting part of a paragraph bold

Fred256 · #1 10-06-2016, 04:40 PM

Hi, I'm working thru a doc looking for matching paragraphs (one containing " - ").
If found I want split(ThisOne, " - ")(0) to be bold and split(ThisOne, " - ")(1) to be not bold.

Not sure how to tackle this.. There's not much to my code, pp is the string I start with is

For Each p In ActiveDocument.Paragraphs
pp = p.Range.Text

and I've found I can change pp then write it back with

p.Range.Text= pp

However, as it's only part of pp, I'm a bit stuck.

Thanks for any advice. I'm new to this.

Fred.

gmayor · #2 10-07-2016, 04:06 AM

Based on your other post in this forum

Code:

Dim p As Paragraph
Dim oRng As Range
Dim Thistext As String
Dim meetssomecondition As Boolean

    For Each p In ActiveDocument.Paragraphs
        meetssomecondition = False
        Thistext = p.Range.Text
        If InStr(1, Thistext, "-") > 0 Then meetssomecondition = True
        If meetssomecondition = True Then
            Set oRng = p.Range    'set a range to the paragraph
            oRng.Collapse 1    'collapse the range to its start
            oRng.MoveEndUntil "-"    'move the end of the range to the hyphen
            oRng.Font.Bold = True    'format the range
        End If
    Next p

Guessed · #3 10-07-2016, 06:13 AM

You could simplify the meetsomecondition setting or even avoid it completely with the following modifications

Code:

Sub BoldStart()
  Dim p As Paragraph, i As Integer
  Dim oRng As Range, meetssomecondition As Boolean

  For Each p In ActiveDocument.Paragraphs
    Set oRng = p.Range
    i = InStr(1, oRng.Text, "-")
    'meetssomecondition = i > 0
    'If meetssomecondition Then
      oRng.End = oRng.Start + i - 1
      oRng.Font.Bold = True
    'End If
  Next p
End Sub

The remmed out lines don't matter if there is no dash in the paragraph since the range is collapsed to an insertion point on those paragraphs.

gmayor · #4 10-07-2016, 07:13 AM

Agreed the extra code is superfluous, but it relates to the OPs other thread so I left it in to avoid confusing the user even more.

Fred256 · #5 10-07-2016, 02:54 PM

Thanks for the advice.. about to try out your suggestions

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find, select, and replace part of text with bold	paik1002	Word VBA	4	12-07-2015 11:24 PM
How to parse bold sections of a paragraph?	XmisterIS	Word VBA	2	03-31-2014 02:54 PM
Set style for part of paragraph	meileetan	Word	7	06-07-2013 01:09 AM
Set paragraph text to bold.	Sorcerer13	Word	1	09-04-2012 11:08 AM
How to indent only half part of the paragraph 2em	Samahu	Word	2	01-17-2011 08:15 AM