yahooooo
asked on
VBA Word: Bold cell's text till break line
I need to go through one column in my word table and change font to bold for all characters from the first one to first breakline so that would be the string im interested in:
zz = Left(oCell.Range.Text, InStr(oCell.Range.Text, Chr(13)) - 1)
Im having difficulties in highlighting the 'zz' part of every cell
zz = Left(oCell.Range.Text, InStr(oCell.Range.Text, Chr(13)) - 1)
Im having difficulties in highlighting the 'zz' part of every cell
With appWord
For Each oCell In .Tables(1).Range.Columns(2).Cells
With .Selection
.Bold = True
End With
Next
End With
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
works great :D Didnt think that I can treat cell like a word document ;)
thanks