Dzwebs.Net

撰写电脑技术杂文十余年

word vba 首行缩进

Admin | 2016-4-14 9:52:04 | 被阅次数 | 14350

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  在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厘米,数字和单位是不一样的。所以,建议使用第一种。


该杂文来自: Word杂文

上一篇:vba多行注释的间接方法

下一篇:word vba 根据字符找段落 返回第二句

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计