Solved

Need to bold a line in Word document

Posted on 2008-10-21
2
323 Views
Last Modified: 2012-05-05
Experts -

Using vb.net, Word 2003, not quite sure why the following function isn't working.  The do while evaluates to true, but it passes right over the with clause. I use something almost identical to find and delete an entire line, so I'm not quite sure what's going on. BTW, I want to find the text "Your Ref:", and then bold the entire line where this string resides; also, it always resides at the beginning of the line.

 Sub BoldYourRef(ByVal doc As Object)

        Dim wdApp As Object 'Word.Application
        Dim Unit1 As Microsoft.Office.Interop.Word.WdUnits = Microsoft.Office.Interop.Word.WdUnits.wdLine
        wdApp = doc.Application
        doc.Range.Select()
        wdApp.Selection.Find.Text = "Your Ref:"
        Do While wdApp.Selection.Find.Execute(FindText:="Your Ref:", Forward:=True, _
                    Format:=True) = True
           With wdApp.Selection
             wdApp.Selection.Expand(Unit1)
             wdApp.selection.Font.Bold = True
            End With
        Loop
    End Sub


TIA
crafuse
0
Comment
Question by:crafuse
2 Comments
 
LVL 23

Accepted Solution

by:
irudyk earned 500 total points
ID: 22768778
Does something like the following work for you?
Sub BoldYourRef(ByVal doc As Object)
    Dim wdApp As Object 'Word.Application
    Dim Unit1 As Microsoft.Office.Interop.Word.WdUnits = Microsoft.Office.Interop.Word.WdUnits.wdLine
    wdApp = doc.Application
    wdApp.Selection.HomeKey(6)
    wdApp.Selection.Find.Text = "Your Ref:"
    Do While wdApp.Selection.Find.Execute(FindText:="Your Ref:", Forward:=True, Format:=True) = True
        With wdApp.Selection
            wdApp.Selection.Expand(Unit1)
            wdApp.selection.Font.Bold = True
            wdApp.Selection.Collapse(0)
        End With
    Loop
End Sub

Open in new window

0
 

Author Closing Comment

by:crafuse
ID: 31508329
sweet. beautiful. great. and awesome.

thanks!
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
Access custom database properties are useful for storing miscellaneous bits of information in a format that persists through database closing and reopening.  This article shows how to create and use them.
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks. Specify a start-up form through options: Specify an Autoexec macro: Us…
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.

685 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question