Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1001
  • Last Modified:

Setting range to 'bold' fails (MS Word automation, vb.net)

I'm writing a document generator with vb.net and Word automation. I've found some info on the net,  and I can succesfully modify bookmark values to create a fresh document, like so:

Dim oWordDoc As Word.Document = oWordApp.Documents.Open(fileName, missing, oReadOnly, missing, missing, missing, missing, missing, missing, missing, missing, isVisible)

Dim oBookmark As Object = myBookmarkName

oWordDoc.Bookmarks.Item(oBookmark).Range.Text = myText

However, it doesn't work when I try to change the formatting of this bookmark, to bold, italic or underlined, like so:

oWordDoc.Bookmarks.Item(oBookmark).Range.Font.Bold = True

I've tried replacing 'True' with '1', but it doesn't add any formatting changes to the open word document.

I've also tried grabbing the range first, but that doesn't work either:

Dim oRng As Word.Range = oWordDoc.Bookmarks.Item(oBookmark).Range
oRng.Font.Bold = True

The range object also has Bold, Italic, and Underline properties, but I haven't had any succes with those either. Oh, and I've tried setting the text value before and after the formatting change, but that doesn't seem to be the problem either.
0
Rapido
Asked:
Rapido
  • 3
  • 2
1 Solution
 
RapidoAuthor Commented:
I found the answer! This is how it should be done, with a selection:

Dim oRng As Word.Range
                Dim oSel As Word.Selection

                oRng = oWordDoc.Bookmarks.Item(oBookmark).Range
                oSel = oWordApp.Selection()
                oSel.Start = oRng.Start
                oSel.End = oRng.End

                If (drDocVar("IsBold") = True) Then
                    oSel.Font.Bold = True
                End If

                If (drDocVar("IsItalic") = True) Then
                    oSel.Font.Italic = True
                End If

                If (drDocVar("IsUnderlined") = True) Then
                    oSel.Font.Underline = True
                End If

                oSel.TypeText(myText)
0
 
wsteegmansCommented:
Try something like this:

Dim oWordDoc As Word.Document = oWordApp.Documents.Open(fileName, missing, oReadOnly, missing, missing, missing, missing, missing, missing, missing, missing, isVisible)

oWordApp.Selection.GoTo (wdGoToBookmark, missing, missing, oBookmark.Name)
oWordApp.Selection.Font.Bold = True
oWordApp.Selection.TypeText (myText)

You can also create a Style with these characteristics:
- Style Type: Character
- Font: Bold

Before typing your stuff, you choose this Style, like this:

oWordApp.Selection.Style = oWordApp.ActiveDocument.Styles("StyleBold")
oWordApp.Selection.TypeText (myText)
0
 
wsteegmansCommented:
You found it already yourselves ... :-)
0
 
RapidoAuthor Commented:
Thanks anyhow. I'd be happy to give you the points so this question gets archived, I haven't been able to find an answer anywhere else....
0
 
wsteegmansCommented:
Thanks! But your solution is the most beautiful way!

Some additional info about Office Programming in VS .Net. With the new Office (2003), you can now also write managed code in your .Net programs to control Word or Excel ... Visual Studio .NET can help you incorporate Microsoft Office Word 2003 and Microsoft Office Excel 2003 into your custom solutions by providing tools and classes to make automation easier. You can also use Visual Studio .NET as your development environment for other Office applications.

Read more:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_wrcore/html/wrconmanagedcodeofficeobjectmodels.asp
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now