Bolding certain text

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Ryan Curry - 26 Oct 2007 23:40 GMT

Hi all, I'm trying to create a small VB code that allows us to save decisions
in a singe document. I have 3 text boxes that we'll fill out (problem,
decision, and decider) and when you hit the command button it will insert the
information below any previous decisions that have been recorded.

The issue is that I would like to enter in "Problem Description: " &
strProblem but have Problem Description be entered as bold (for readability)
and for the LIFE of me I can't find where to set this. I've tried entering
it in as a lone paragraph and setting that range to bold and Word doesn't
like it. I wish I could just find the text and bold it but I can't figure
that part out.

I'm on Word 2003 and using the Visual Basic Editor for my code. Any help is
GREATLY appreciated.

Reply to this Message

Helmut Weber - 27 Oct 2007 10:23 GMT

Hi Ryan,

something along these lines:

Sub Macro8()
Dim s As String
s = "xxxxxxxxxx: "
With Selection
.Collapse
.Bookmarks.Add "bold"
End With
With ActiveDocument.Bookmarks("bold")
.Range.Text = s
.End = .End + Len(s)
.Range.InsertAfter "yyyy"
.Range.Font.Bold = True
.Delete
End With
End Sub

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message

Rate this thread: