Rapido
asked on
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(fi leName, missing, oReadOnly, missing, missing, missing, missing, missing, missing, missing, missing, isVisible)
Dim oBookmark As Object = myBookmarkName
oWordDoc.Bookmarks.Item(oB ookmark).R ange.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(oB ookmark).R ange.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(oB ookmark).R ange
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.
Dim oWordDoc As Word.Document = oWordApp.Documents.Open(fi
Dim oBookmark As Object = myBookmarkName
oWordDoc.Bookmarks.Item(oB
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(oB
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(oB
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.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
You found it already yourselves ... :-)
ASKER
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....
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
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
ASKER
Dim oRng As Word.Range
Dim oSel As Word.Selection
oRng = oWordDoc.Bookmarks.Item(oB
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)