View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
bj bj is offline
external usenet poster
 
Posts: 1,397
Default Bold Font question

I miss read your posting.
you can write a macro to change part of a text field to bold or to a color
font. but you have to be able to lengths of each section

with your example the macro might be something like the macro below if the
length of the stuff to be bolded were 36
note you would nneed ot save and paste as values first
sub bld()
Range("K15").Select

With ActiveCell.Characters(Start:=1, Length:=63).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=64, Length:=36).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=101, Length:=125).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub

"bj" wrote:

what version of excel are you using. it does not work in 2003

"Jenny B." wrote:

Good Afternoon All,

I currently have a formula that pulls data results from one page and places
them in another along with additional text. I've seen several posts that
note bolding one word is not possible and I'm just wondering if that is in
fact correct. I've been able to change single words to Caps if needed (see
Exp. 1), but I'm able to just write Bold and get the same results (Exp. 2).

Thank you for your review as always and appreciate any thoughts or advice -
Jenny B.

Exp. 1 (Works)
="This questionnaire asks you to evaluate the job performance of" &" " &
Upper('Test Results Data'!G49) & " " &Upper('Test Results Data'!F49) &"." &"
" & "The information you are providing is for research purposes only, and
will not become part of the employee's official record."

Exp.2 (Does not Work)
="This questionnaire asks you to evaluate the job performance of" &" " &
Bold('Test Results Data'!G49) & " " &Bold('Test Results Data'!F49) &"." &" "
& "The information you are providing is for research purposes only, and will
not become part of the employee's official record."