返回介绍

Shrink 方法

发布于 2019-09-29 10:01:22 字数 1108 浏览 978 评论 0 收藏 0

全部显示

Font 对象:将字号减小为下一个有效的字号。如果选定内容或区域包含多个字号,则每一字号都减小为下一个有效设置。

Selection 对象:将所选内容缩小为下一级的文字单位,文字单位包括:整篇文档、节、段落、句、字及插入点。

expression.Shrink

expression 必需。该表达式返回“应用于”列表中的一个对象。

示例

当应用于 Font 对象时。

本示例在一篇新文档中插入一行字号逐渐减小的字母 Z。

Set myRange = Documents.Add.Content
myRange.Font.Size = 45
For Count = 1 To 5
 myRange.InsertAfter "Z"
 For Count2 = 1 to 3
 myRange.Characters(Count).Font.Shrink
 Next Count2
Next Count

当应用于 Selection 对象时。

本示例将选定文本的字号减小一个单位。

If Selection.Type = wdSelectionNormal Then
 Selection.Font.Shrink
Else
 MsgBox "You need to select some text."
End If

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

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

发布评论

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