大众计算机学习网欢迎诸位!收藏本站注 册登 陆
常用教程:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 教程 > 文章页

word vba 首行缩进

Admin | 2016-4-14 9:52:04 | ReadNums | 2331 | 标签 Word教程 | 打印本页
     

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


问题未解决:在线咨询我要在线咨询问题

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日