[henrikl2000]

I am using VB6 to create an application that uses MS Word 2010 to print labels. My question is how do I change the font size, name etc. in a Word Bookmark that is inside a textfield (shape). I can change the font in a plain document but not if the bookmark is inside a textfield.

I have been trying the following code:

If doc.Bookmarks.Exists("Barcode1") Then
If doc.Bookmarks("Barcode1").Range.Font.Size = MultiSelection Then
' the range of the bookmark consists of runs with different font sizes
doc.Bookmarks("Barcode1").Range.Font.Size = 20
Else
doc.Bookmarks("Barcode1").Range.Font.Size _
= doc.Bookmarks("Barcode1").Range.Font.Size + 4
End If
End If

And this too:

Dim WordObj As Word.Application
Set WordObj = CreateObject("Word.Application")

Dim objWord As Word.Document
Set objWord = WordObj.Documents.Open(FileName:=App.Path & "\LabelLayout\test.docx") '" & SelectedLabelLayout & ".docx") '"C:\Users\Henrik\Documents\L7159test.docx") 'Test.docx")

WordObj.Visible = True
With objWord.Bookmarks
.Item("Barcode1").Range.Text = txtEtiket(0).Text 'txtName
.Item("Barcode1").Range.FormattedText.Font.Name = "Segoe UI" 'Font.Color = wdColorRed
.Item("Barcode1").Range.FormattedText.Font.Size = "16"
End with

[BobRodes]

Don't know that one offhand, sorry. Are you getting errors or does it just not work?

Please read the watermarks in the reply box and use code tags as explained there.

[henrikl2000]

Hi thanks for your reply,

No I don't get any errors it just doesn't work.
I will use code tags next time. Thank you.

[henrikl2000]

Hi Bob,

I got it. Searched Google and found a site containing Word VBA code samples for Newbies.
It is very when you know how to.

            
WordDoc.Bookmarks("Test").Select
Selection.Font.size = 36            
Selection.Font.Name = "Segoe UI"            
Selection.Font.ColorIndex = wdRed

Thank you for your effort to help out with VB.
Here is a link to the site : http://www.thezcorp....odeSamples.aspx

[BobRodes]

Thanks for posting your solution.