Changing the format of text in a cell

[richardC]

Hi, can anyone advice how to change the format of a specific bit of text
in a cell, I can set a whole cell to bold like
Dim r As Word.Range
cell = row.Cells(1)
cell.Range.Text = "This is some text"
r = cell.Range
r.Font.Bold = True
but when i try and use
r.SetRange(cell.Range.Start, 4)
to change the word this to bold I dont actually get the right text
In anticipation thanks, for your help

 

[Jean-Guy Marcil]

richardC was telling us:
richardC nous racontait que :

Hi, can anyone advice how to change the format of a specific bit of
text in a cell, I can set a whole cell to bold like
Dim r As Word.Range
cell = row.Cells(1)
cell.Range.Text = "This is some text"
r = cell.Range
r.Font.Bold = True
but when i try and use
r.SetRange(cell.Range.Start, 4)
to change the word this to bold I dont actually get the right text
In anticipation thanks, for your help

r.Words(1).Font....
--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site: http://www.word.mvps.org

 

[Jay Freedman]

Hi, can anyone advice how to change the format of a specific bit of
text in a cell, I can set a whole cell to bold like
Dim r As Word.Range
cell = row.Cells(1)
cell.Range.Text = "This is some text"
r = cell.Range
r.Font.Bold = True
but when i try and use
r.SetRange(cell.Range.Start, 4)
to change the word this to bold I dont actually get the right text
In anticipation thanks, for your help

The second parameter of the SetRange function shouldn't be a length (like
4); it should be the location of the end of the desired range *measured from
the start of the document*. For instance, cell.Range.Start might be 1734,
then the number after the comma would have to be 1738. In code, this would
look like
r.SetRange(cell.Range.Start, cell.Range.Start + 4)

 

[richardC]

Thanks, that is very helpfull but what I am really trying to do is get a
range object as theremight be mutiple words that i need to change ie a cell
mught have the following text which has been dynamicly assigned
Company full Name
Add1
Add2
PostCode
Tel number
Distance information

I wish to just set theCompany name and distance info to bold hence using a
range obj but the start position does not come back correctlry