Need to change part of the text to bold in a Position (Shape)

[Tshelar]

I have a macro that gets data from Access database and creates a org chart.
The positions in the org Chart displays text that comes form from 2 fields
"EmpName" and "PositionName" (ex. John Doe, Vice President). I want to just
BOLD the text from the Position field(Vice President). How can I do that. I
can Bold the entire text within the position but not part of it.
Any clues on how I can achieve this

 

[JuneTheSecond]

If your Visio is 2003, you can get macro that records your operation.
And can be analyzed how the macor do it like,
Set vsoCharacters1 =
Application.ActiveWindow.Page.Shapes.ItemFromID(26).Characters
vsoCharacters1.Begin = 0
vsoCharacters1.End = 2
vsoCharacters1.CharProps(visCharacterStyle) = 17#

 

[Tshelar]

Thanks it worked for me. Appreciate your help.