返回介绍

SelectCurrentIndent 方法

发布于 2019-09-29 09:59:45 字数 829 浏览 1075 评论 0 收藏 0

向前扩展所选内容,直至遇到具有另一种段落左右缩进量的文本为止。

expression.SelectCurrentIndent

expression 必需。该表达式返回一个 Selection 对象。

示例

本示例跳转到活动文档中与活动文档的第一段的段落缩进量不同的第一个段落的开始。

With Selection
 .HomeKey Unit:=wdStory, Extend:=wdMove
 .SelectCurrentIndent
 .Collapse Direction:=wdCollapseEnd
End With

本示例判断活动文档中的所有段落的段落左或右缩进量是否相同,然后在一个消息框显示判断结果。

With Selection
 .HomeKey Unit:=wdStory, Extend:=wdMove
 .SelectCurrentIndent
 .Collapse Direction:=wdCollapseEnd
End With
If Selection.End = ActiveDocument.Content.End - 1 Then
 MsgBox "All paragraphs share the same left " _
 & "and right indents."
Else
 MsgBox "Not all paragraphs share the same left " _
 & "and right indents."
End If

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文