Bolding in script

Guessed · #1 01-28-2015, 07:11 PM

You don't need to bother with a search and replace if you make use of the selection.expand method. For instance, you could add the following in front of the End If line

Code:

  Dim oPar As Paragraph
  For Each oPar In oRng.Paragraphs
    oPar.Range.Select
    Selection.Collapse Direction:=wdCollapseStart
    Selection.Extend " "
    Selection.Font.Bold = True
  Next oPar

This would be much slicker if you could use the range directly and didn't need the selection object but I don't think extend works for ranges.

macropod · #2 01-28-2015, 07:20 PM

Quote:

Originally Posted by Guessed

This would be much slicker if you could use the range directly and didn't need the selection object but I don't think extend works for ranges.

how about:

Code:

Dim oPar As Paragraph
  For Each oPar In oRng.Paragraphs
    With oPar.Range
      .Collapse Direction:=wdCollapseStart
      .MoveEndUntil " ", wdForward
      .Font.Bold = True
    End With
  Next oPar

Much more efficient than working with selections, too.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help with VBA script	nsyrax	Word VBA	1	01-18-2014 03:38 AM
Outlook Script Help	TheInfinetGroup	Outlook	1	03-02-2013 07:43 AM
Add Shared Calendar using script	Antros	Outlook	0	03-15-2012 01:01 PM
Script Doesn't works on other machine	ravininave	Word	1	01-05-2011 01:45 PM
[ask] about VB Script + Ms. Project	anak_baru	Project	2	03-10-2009 01:42 AM