Word VBA教程:Width属性

对于 Frameset对象:该属性返回或设置指定的 Frameset对象的宽度。Long 类型,可读写。由WidthType属性决定该宽度值所用的度量单位的类型。

对于所有其他对象:该属性返回或设置指定对象的宽度,以磅为单位。Long 类型,可读写。

VBA示例

本示例在新文档中创建一张 5x5 的表格,然后将第一个单元格的宽度设为 1.5 英寸。


Set newDoc = Documents.Add
Set myTable = _
    newDoc.Tables.Add(Range:=Selection.Range, NumRows:=5, _
    NumColumns:=5)
myTable.Cell(1, 1).Width = InchesToPoints(1.5)

本示例返回插入点所在的单元格宽度(以磅为单位)。


If Selection.Information(wdWithInTable) = True Then
    MsgBox PointsToInches(Selection.Cells(1).Width)
End If

本示例将包含所选内容的节的格式设置为三栏。For Each...Next 循环用于显示 TextColumns集合中每一列的宽度。


Selection.PageSetup.TextColumns.SetCount NumColumns:=3
For Each acol In Selection.PageSetup.TextColumns
    MsgBox "Width= " & PointsToInches(acol.Width)
Next acol

本示例设置 Microsoft Word 应用窗口的宽度和高度。


With Application
    .WindowState = wdWindowStateNormal
    .Width = 500
    .Height = 400
End With

本示例设置指定 Frameset对象的宽度为窗口宽度的 25%。


With ActiveWindow.ActivePane.Frameset
    .WidthType = wdFramesetSizeTypePercent
    .Width = 25
End With

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号