Using line spacing in VBA/word 2007

[John T.]

I'm not sure if I'm understanding the various LineSpacingRule commands for use with VBA in word 2007 to get a doc sheet made up.

The issue is that I'm not getting proper line spacing. It seems to be defaulting to the double spacing default of word 2007.

Here's some snippets:

 

In my defintions-note thatI'm not sure what the value really is supposed to be.

 

Const wdLineSpace1pt5=1

Const wdlineSpaceSingle=0

Const wdLineSpaceExactly=0

 

Here is a part of someting that gets printed out in word:

 

.ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 20,70, 222.3, 65).Select 'first box left side

.Selection.ShapeRange.TextFrame.TextRange.Select 'First box header info goes this section

.Selection.ParagraphFormat.LineSpacingRule=wdLineSpaceSingle

.Selection.Collapse

.Selection.ShapeRange.Line.Visible = msoFalse

.Selection.Font.Bold=True

.Selection.TypeText "Company: "&vbTab 'Company Name

.Selection.Font.Bold=False

.Selection.TypeText companyname&vbNewLine

.Selection.Font.Bold=True

.Selection.TypeText "Description: "&vbTab 'Description

.Selection.Font.Bold=False

.Selection.TypeText Description &vbNewLine

.Selection.Font.Bold=True

.Selection.TypeText "PI Num: "&vbTab 'PI number

.Selection.Font.Bold=False

.Selection.TypeText Program &vbNewLine

.Selection.Font.Bold=True

.Selection.Font.Bold=True

.Selection.TypeText "Material: "&vbTab 'Material type IF in Job setup

.Selection.Font.Bold=False

.Selection.TypeText material &vbNewLine

 

I guess my biggest problem is I don't know how the constants are defined, or if I'm using the

 

.Selection.ParagraphFormat.LineSpacingRule=wdLineSpaceSingle

 

In the proper place.

 

Any ideas?