Class HorizontalLineFormat (Word VBA)

The class HorizontalLineFormat represents horizontal line formatting.

Set

To use a HorizontalLineFormat class variable it first needs to be instantiated, for example

Dim hlf as HorizontalLineFormat
Set hlf = ActiveDocument.Range.InlineShapes(1).HorizontalLineFormat

HorizontalLineFormat class variables can be set using the InlineShape.HorizontalLineFormat procedure.

Alignment

Returns or sets a WdHorizontalLineAlignment constant that represents the alignment for the specified horizontal line.

Possible Values are wdHorizontalLineAlignCenter - Centered, wdHorizontalLineAlignLeft - Aligned to the left, wdHorizontalLineAlignRight - Aligned to the right.
ActiveDocument.Range.InlineShapes(1).HorizontalLineFormat.Alignment = wdHorizontalLineAlignCenter

NoShade

True if Microsoft Word draws the specified horizontal line without 3D shading.

You can only use this property with horizontal lines that are not based on an existing image file.

Selection.InlineShapes.AddHorizontalLineStandard 
ActiveDocument.InlineShapes(1) _ 
 .HorizontalLineFormat.NoShade = True

Parent

Returns an object that represents the parent object of the specified HorizontalLineFormat object.

Dim objParent As Object
Set objParent = ActiveDocument.Range.InlineShapes(1).HorizontalLineFormat.Parent

PercentWidth

Returns or sets the length of the specified horizontal line expressed as a percentage of the window width.

Setting this property also sets the WidthType property to wdHorizontalLinePercentWidth.

Selection.InlineShapes.AddHorizontalLineStandard 
ActiveDocument.InlineShapes(1) _ 
 .HorizontalLineFormat.PercentWidth = 50

WidthType

Returns or sets the width type for the specified HorizontalLineFormat object.

Possible Values are wdHorizontalLineFixedWidth - Microsoft Word interprets the width (length) of the specified horizontal line as a fixed value (in points). This is the default value for horizontal lines added with the AddHorizontalLine method. Setting the Width property for the InlineShape object associated with a horizontal line sets the WidthType property to this value, wdHorizontalLinePercentWidth - Word interprets the width (length) of the specified horizontal line as a percentage of the screen width. This is the default value for horizontal lines added with the AddHorizontalLineStandard method. Setting the PercentWidth property on a horizontal line sets the WidthType property to this value.
Dim temp As InlineShape 
Set temp = _ 
 ActiveDocument.InlineShapes.AddHorizontalLineStandard 
MsgBox "AddHorizontalLineStandard - WidthType = " _ 
 & temp.HorizontalLineFormat.WidthType 
Set temp = _ 
 ActiveDocument.InlineShapes.AddHorizontalLine _ 
 ("C:\My Documents\ArtsyRule.gif") 
MsgBox "AddHorizontalLine - WidthType = " _ 
 & temp.HorizontalLineFormat.WidthType