在WORD里面,你可以使用VBA实现各种功能,下面,将为大家介绍如何使用VBA实现WORD段落的首行缩进2字符。
示例代码如下:
Dim MyParagraph As Range
Set MyParagraph = ActiveDocument.Range(ActiveDocument.Paragraphs(3).Range.Start, ActiveDocument.Paragraphs(3).Range.End)
If (MyParagraph.ParagraphFormat.CharacterUnitFirstLineIndent = 2) Then
MsgBox "已首行缩进"
Else
MsgBox "非首行缩进," & MyParagraph.ParagraphFormat.CharacterUnitFirstLineIndent
MyParagraph.ParagraphFormat.CharacterUnitFirstLineIndent = 2
End If
上面代码实现的功能是:WORD文档中的第三段落实现首行缩进2字符。
通过观察代码,你可以会发现,其实,能够实现首行缩进的代码,就是这一句。
MyParagraph.ParagraphFormat.CharacterUnitFirstLineIndent = 2
当然,部分网站也曾提到过,除了上面的这行代码,也可以使用下面这行代码来实现:
MyParagraph.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0.75)
然而,经过本站严格测试发现,MyParagraph.ParagraphFormat.CharacterUnitFirstLineIndent = 2 这一句可行。而MyParagraph.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0.75)虽然也能够实现首行缩进的功能,但是,却不理想,为什么呢?因为.CharacterUnitFirstLineIndent = 2实现的首行缩进是真的缩进2字符,而CentimetersToPoints(0.75)实现的缩进是,缩进0.75厘米,数字和单位是不一样的。所以,建议使用第一种。