Access数据库：常见的VBA问题，FQA三。

  Access数据库：常见的VBA问题，FQA三。

LinesToPoints 方法
请参阅 应用于 示例 特性
将度量单位从行转换为磅（1 行 = 12 磅）。以 Single 类型返回转换结果。

expression.LinesToPoints(Lines)

expression   可选。该表达式返回一个 Application 对象。

Lines   Single 类型，必需。将转换为磅数的行数。

示例
本示例将所选段落的行距设置为 3 倍行距。

With Selection.ParagraphFormat
    .LineSpacingRule = wdLineSpaceMultiple
    .LineSpacing = LinesToPoints(3)
End With

--------------
CentimetersToPoints 方法
请参阅 应用于 示例 特性
将度量单位由厘米转换为磅数（1 厘米=28.35 磅）。所返回的转换结果为 Single 类型。

expression.CentimetersToPoints(Centimeters)

expression   可选。该表达式返回一个 Application 对象。

Centimeters   Single 类型，必需。指需要转换为磅的厘米数。

示例
本示例用于为选定内容的所有段落添加居中制表位。此制表位位于距页面左边距 1.5 厘米处。

Selection.Paragraphs.TabStops.Add _
    Position:=CentimetersToPoints(1.5), _
    Alignment:=wdAlignTabCenter
本示例使活动文档的第一个段落首行缩进 2.5 厘米。

ActiveDocument.Paragraphs(1).FirstLineIndent = _
    CentimetersToPoints(2.5)

-----------------------
InchesToPoints 方法
请参阅 应用于 示例 特性
将度量单位从英寸转换为磅值（1 英寸 = 72 磅）。以 Single 类型返回转换结果。

expression.InchesToPoints(Inches)

expression   可选。该表达式返回一个 Application 对象。

Inches   Single 类型，必需。将转换为磅值的英寸数。

示例
本示例将选定段落的段前间距设置为 0.25 英寸。

Selection.ParagraphFormat.SpaceBefore = InchesToPoints(0.25)
本示例先将每个打开的文档的左右页边距设置为 0.65 英寸，再逐一打印各文档。

Dim docLoop As Document

For Each docLoop in Documents
    With docLoop
        .PageSetup.LeftMargin = InchesToPoints(0.65)
        .PageSetup.RightMargin = InchesToPoints(0.65)
        .PrintOut
    End With
Next docLoop
------------------------------------------------
PicasToPoints 方法
请参阅 应用于 示例 特性
将度量单位从十二点活字转换为磅值（1 十二点活字 = 12 磅）。以 Single 类型返回转换结果。

expression.PicasToPoints(Picas)

expression   可选。该表达式返回一个 Application 对象。

Picas   Single 类型，必需。将转换为磅值的十二点活字数。

示例
本示例将为活动文档添加行号，并将行号和文档文本之间的距离设置为 4 个十二点活字。

With ActiveDocument.PageSetup.LineNumbering
    .Active = True
    .DistanceFromText = PicasToPoints(4)
End With
本示例将所选段落的首行缩进设置为 3 个十二点活字。

Selection.ParagraphFormat.FirstLineIndent = PicasToPoints
-------------------------------------