Programmatically Create Label in Word 2007

G

Graham Mayor

This forum is for Word vba. If you want some help with this you will need to
explain *exactly* what you mean. We are not mind readers.
What sort of label? Caption?

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
D

Doug Robbins - Word MVP

A caption consists of a { SEQ } field pre-fixed by the label so if you want
to insert a caption for a Widget, you could use

With ActiveDocument
Selection.InsertBefore "Widget "
Selection.Collapse wdCollapseEnd
.Fields.Add Selection.Range, wdFieldEmpty, "SEQ widget"
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
 
J

Jess

Thanks for your response. But this is inserting text for me.
Maybe a better explaination:

I'm creating a word template. And I have to stop the users from being able
to delete regular text fields. So I'm inserting labels in. There's a macro
that adds more fields. Each line has a label then a rich text field.

Here's what I've got so far:

Selection.MoveRight Unit:=wdCell
Selection.Font.Bold = True
Selection.TypeText Text:="Name:" <-- Should be a label
Selection.Font.Bold = False
Selection.MoveRight Unit:=wdCell
Selection.Range.ContentControls.add (wdContentControlRichText)

This line inserts a label but I have to change the text:
Selection.InlineShapes.AddOLEControl ClassType:="Forms.Label.1"

One other method I was trying to do was to use Group, under the Developer
bar. But there's a problem with that - The fields are added with the macro
ok. But when a user types in the rich text field box - the text is coming
out gray instead of black. And when you have the group on - you can't modify
any fonts.

Help!

One last thing - if you could be so kind as to point out a good book for me
to follow up on with this I'd really appreciate it.

Jess
 
J

Jess

Found a solution

Sub AddLabel(thisText)

Dim lblField As Object
Set lblField = _
Selection.InlineShapes.AddOLEControl(ClassType:="Forms.Label.1")
With lblField.OLEFormat.Object
.Caption = thisText
.Width = "125"
End With
End Sub

Thanks again for the help.

And if you know of a good text book pls send it over.
Jess
 
Top