word附注研究:word的缩进影响因素

为了弄清Word中的缩进代码控制因素,近几天进行了大量的测试,得出以下结论

 
1、Word.Options.UseCharacterUnit = True ,资料显示它主要控制段落以字符数作为单位控制缩进,TRUE表示 是,FALSE表示,

2、经测试无论TRUE,false都不影响

3、CharacterUnitFirstLineIndent 的优先级,定义了它的值word会以他的值作为首先缩进

4、在CharacterUnitFirstLineIndent =0 的情况下,FirstLineIndent 的值才会生效,系统此时才会以其值作为缩进值,缩进的单元为厘米,并且要用 CentimetersToPoints()函数,否则系统会以这个值转换为厘米数,转换的关系为*0.035。

测试过程如下:

1、Sub 测试段落缩进()
 Word.Options.UseCharacterUnit = True
Selection.ParagraphFormat.CharacterUnitFirstLineIndent = 1
Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(3)
Dialogs.Item(wdDialogFormatParagraph).Show
End Sub

显示结果为首行缩进1个字符,FirstLineIndent不生效

2、

Sub 测试段落缩进()
 Word.Options.UseCharacterUnit = True
Selection.ParagraphFormat.CharacterUnitFirstLineIndent = 0
Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(3)
Dialogs.Item(wdDialogFormatParagraph).Show
End Sub

显示结果为首行缩进3厘米,FirstLineIndent生效。

3、

Sub 测试段落缩进()
 Word.Options.UseCharacterUnit = True
Selection.ParagraphFormat.CharacterUnitFirstLineIndent = 0
Selection.ParagraphFormat.FirstLineIndent = 10
Dialogs.Item(wdDialogFormatParagraph).Show
End Sub

显示结果为首行缩进0.35厘米(表示不加CentimetersToPoints,它将值默认为磅,乘以0.035得到厘米数,即10磅*0.035=0.35厘米,FirstLineIndent生效。

 

 

 

你可能感兴趣的:(Delphi)