Word VBA教程:TextPosition属性

该属性返回或设置指定的ListLevel对象的第二行换行文字的位置(以磅为单位)。Single 类型,可读写。

expression.TextPosition

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

VBA示例

本示例设置第一个多级符号列表模板的所有级别的缩进量。每一列表级别比上一级别缩进 0.5 英寸(36 磅),制表位设为距编号 0.25 英寸(18 磅),换行文字从编号缩进 0.25 英寸(18 磅)。


r = 0
For Each lev In ListGalleries(wdOutlineNumberGallery) _
        .ListTemplates(1).ListLevels
    lev.Alignment = wdListLevelAlignLeft
    lev.NumberPosition = r
    lev.TrailingCharacter = wdTrailingTab
    lev.TabPosition = r + 18
    lev.TextPosition = r + 18
    r = r + 36
Next lev

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号